- Timestamp:
- 2015-10-08T15:52:43+02:00 (9 years ago)
- Location:
- branches/UKMO/nemo_v3_6_STABLE_copy/NEMOGCM/NEMO/OPA_SRC/ZDF
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/nemo_v3_6_STABLE_copy/NEMOGCM/NEMO/OPA_SRC/ZDF/zdf_oce.F90
r5781 r5783 46 46 !!---------------------------------------------------------------------- 47 47 !! NEMO/OPA 4.0 , NEMO Consortium (2011) 48 !! $Id$ 48 !! $Id$ 49 49 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 50 50 !!---------------------------------------------------------------------- -
branches/UKMO/nemo_v3_6_STABLE_copy/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm_substitute.h90
r5781 r5783 14 14 !!---------------------------------------------------------------------- 15 15 !! NEMO/OPA 4.0 , NEMO Consortium (2011) 16 !! $Id$ 16 !! $Id$ 17 17 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 18 18 !!---------------------------------------------------------------------- -
branches/UKMO/nemo_v3_6_STABLE_copy/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
r5781 r5783 329 329 ! 330 330 ! One level below 331 en(:,:,2) = rc02r * ustars2(:,:) * (1._wp + rsbc_tke1 * ((zhsro(:,:)+fsdepw(:,:,2))/zhsro(:,:) )**(1.5_wp*ra_sf))**(2._wp/3._wp) 331 en(:,:,2) = rc02r * ustars2(:,:) * (1._wp + rsbc_tke1 * ((zhsro(:,:)+fsdepw(:,:,2)) & 332 & / zhsro(:,:) )**(1.5_wp*ra_sf))**(2._wp/3._wp) 332 333 en(:,:,2) = MAX(en(:,:,2), rn_emin ) 333 334 z_elem_a(:,:,2) = 0._wp … … 350 351 z_elem_a(:,:,2) = 0._wp 351 352 zkar(:,:) = (rl_sf + (vkarmn-rl_sf)*(1.-exp(-rtrans*fsdept(:,:,1)/zhsro(:,:)) )) 352 zflxs(:,:) = rsbc_tke2 * ustars2(:,:)**1.5_wp * zkar(:,:) * ((zhsro(:,:)+fsdept(:,:,1))/zhsro(:,:) )**(1.5_wp*ra_sf) 353 zflxs(:,:) = rsbc_tke2 * ustars2(:,:)**1.5_wp * zkar(:,:) & 354 & * ((zhsro(:,:)+fsdept(:,:,1))/zhsro(:,:) )**(1.5_wp*ra_sf) 353 355 354 356 en(:,:,2) = en(:,:,2) + zflxs(:,:)/fse3w(:,:,2) -
branches/UKMO/nemo_v3_6_STABLE_copy/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90
r5781 r5783 40 40 !!---------------------------------------------------------------------- 41 41 !! NEMO/OPA 4.0 , NEMO Consortium (2011) 42 !! $Id$ 42 !! $Id$ 43 43 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 44 44 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.