SYMPHONIE V413

module_q.F90: ! v413 20-01-26 - if(loop_wb_max>50)stop ! - vertvel_t(:,:,0,1) =vertvel_t(:,:,1,1) !! 25-01-26 call q_obc_mpi('z0') deplace dans q_update_nhp ! 28-01-26 subroutine q_space_filter ! debug calcul v_euler! 30-01-26 calcul du courant eulerien sur 4 points! 05-02-26 viscosite horizontale Smagorinski! ajout subroutine q_slip_or_noslip advection_bio: ! v413 20-01-26 utiliser wetmask_wi_t plutot que wetmask_t dragcoef: ! v413 23-01-26 un pas vers possibilite no splip condition "quadratique" internal_mode.F90: ! v413 05-02-26 if(flag_iso_visco==0)call q_addbreakingslope_to_km_v2 ! K vertical /= K horizontal mixsed_bio.F90: ! v413 20-01-26 utiliser wetmask_wi_t plutot que wetmask_t module_my_outputs.F90 ! v413 28-01-26 ajout my_outputs_binairevagues omega.F90: ! v413 20-01-26 allocate(vertvel_t(imax,jmax,0:kmax+1,1)) turbulence_gaspar.F90: ! v413 02-02-26 conditions bords fermEs glissement