Changeset 12377 for NEMO/trunk/src/OCE/ZDF/zdfswm.F90
- Timestamp:
- 2020-02-12T15:39:06+01:00 (4 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEAD ext/AGRIF5 ^/vendors/AGRIF/dev_r11615_ENHANCE-04_namelists_as_internalfiles_agrif@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL
-
- Property svn:externals
-
NEMO/trunk/src/OCE/ZDF/zdfswm.F90
r10069 r12377 27 27 PUBLIC zdf_swm_init ! routine called in zdf_phy_init 28 28 29 !! * Substitutions 30 # include "do_loop_substitute.h90" 29 31 !!---------------------------------------------------------------------- 30 32 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 34 36 CONTAINS 35 37 36 SUBROUTINE zdf_swm( kt, p_avm, p_avt, p_avs )38 SUBROUTINE zdf_swm( kt, Kmm, p_avm, p_avt, p_avs ) 37 39 !!--------------------------------------------------------------------- 38 40 !! *** ROUTINE zdf_swm *** … … 52 54 !!--------------------------------------------------------------------- 53 55 INTEGER , INTENT(in ) :: kt ! ocean time step 56 INTEGER , INTENT(in ) :: Kmm ! time level index 54 57 REAL(wp), DIMENSION(:,:,:) , INTENT(inout) :: p_avm ! momentum Kz (w-points) 55 58 REAL(wp), DIMENSION(:,:,:) , INTENT(inout) :: p_avt, p_avs ! tracer Kz (w-points) … … 60 63 ! 61 64 zcoef = 1._wp * 0.353553_wp 62 DO jk = 2, jpkm1 63 DO jj = 2, jpjm1 64 DO ji = 2, jpim1 65 zqb = zcoef * hsw(ji,jj) * tsd2d(ji,jj) * EXP( -3. * wnum(ji,jj) * gdepw_n(ji,jj,jk) ) * wmask(ji,jj,jk) 66 ! 67 p_avt(ji,jj,jk) = p_avt(ji,jj,jk) + zqb 68 p_avs(ji,jj,jk) = p_avs(ji,jj,jk) + zqb 69 p_avm(ji,jj,jk) = p_avm(ji,jj,jk) + zqb 70 END DO 71 END DO 72 END DO 65 DO_3D_00_00( 2, jpkm1 ) 66 zqb = zcoef * hsw(ji,jj) * tsd2d(ji,jj) * EXP( -3. * wnum(ji,jj) * gdepw(ji,jj,jk,Kmm) ) * wmask(ji,jj,jk) 67 ! 68 p_avt(ji,jj,jk) = p_avt(ji,jj,jk) + zqb 69 p_avs(ji,jj,jk) = p_avs(ji,jj,jk) + zqb 70 p_avm(ji,jj,jk) = p_avm(ji,jj,jk) + zqb 71 END_3D 73 72 ! 74 73 END SUBROUTINE zdf_swm
Note: See TracChangeset
for help on using the changeset viewer.