- Timestamp:
- 2015-12-17T13:34:28+01:00 (9 years ago)
- Location:
- branches/2015/dev_r5918_nemo_v3_6_STABLE_XIOS2/NEMOGCM/NEMO/OPA_SRC/ZDF
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5918_nemo_v3_6_STABLE_XIOS2/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90
r6064 r6084 27 27 28 28 PUBLIC zdf_mxl ! called by step.F90 29 PUBLIC zdf_mxl_alloc ! Used in zdf_tke_init 29 30 30 31 INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: nmln !: number of level in the mixed layer (used by TOP) -
branches/2015/dev_r5918_nemo_v3_6_STABLE_XIOS2/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r5407 r6084 710 710 !!---------------------------------------------------------------------- 711 711 INTEGER :: ji, jj, jk ! dummy loop indices 712 INTEGER :: ios 712 INTEGER :: ios, ierr 713 713 !! 714 714 NAMELIST/namzdf_tke/ rn_ediff, rn_ediss , rn_ebb , rn_emin , & … … 768 768 ENDIF 769 769 770 IF( nn_etau == 2 ) CALL zdf_mxl( nit000 ) ! Initialization of nmln 770 IF( nn_etau == 2 ) THEN 771 ierr = zdf_mxl_alloc() 772 nmln(:,:) = nlb10 ! Initialization of nmln 773 ENDIF 771 774 772 775 ! !* depth of penetration of surface tke
Note: See TracChangeset
for help on using the changeset viewer.