Changeset 15249 for NEMO/trunk/src/OCE/ZDF/zdfmxl.F90
- Timestamp:
- 2021-09-13T11:59:09+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ZDF/zdfmxl.F90
r15182 r15249 26 26 PRIVATE 27 27 28 PUBLIC zdf_mxl, zdf_mxl_turb ! called by zdfphy.F9028 PUBLIC zdf_mxl, zdf_mxl_turb, zdf_mxl_alloc ! called by zdfphy.F90 29 29 30 30 INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: nmln !: number of level in the mixed layer (used by LDF, ZDF, TRD, TOP) … … 86 86 IF(lwp) WRITE(numout,*) 'zdf_mxl : mixed layer depth' 87 87 IF(lwp) WRITE(numout,*) '~~~~~~~ ' 88 ! ! allocate zdfmxl arrays89 IF( zdf_mxl_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'zdf_mxl : unable to allocate arrays' )90 88 ENDIF 91 89 ENDIF … … 111 109 ! 112 110 IF( .NOT.l_offline .AND. iom_use("mldr10_1") ) THEN 113 IF( ln_isfcav ) THEN ; CALL iom_put( "mldr10_1", hmlp - risfdep) ! mixed layer thickness 114 ELSE ; CALL iom_put( "mldr10_1", hmlp ) ! mixed layer depth 115 END IF 111 IF( .NOT. l_istiled .OR. ntile == nijtile ) THEN ! Do only on the last tile 112 IF( ln_isfcav ) THEN ; CALL iom_put( "mldr10_1", hmlp - risfdep) ! mixed layer thickness 113 ELSE ; CALL iom_put( "mldr10_1", hmlp ) ! mixed layer depth 114 END IF 115 ENDIF 116 116 ENDIF 117 117 ! … … 154 154 ! 155 155 IF( .NOT.l_offline .AND. iom_use("mldkz5") ) THEN 156 IF( ln_isfcav ) THEN ; CALL iom_put( "mldkz5" , hmld - risfdep ) ! turbocline thickness 157 ELSE ; CALL iom_put( "mldkz5" , hmld ) ! turbocline depth 158 END IF 156 IF( .NOT. l_istiled .OR. ntile == nijtile ) THEN ! Do only on the last tile 157 IF( ln_isfcav ) THEN ; CALL iom_put( "mldkz5" , hmld - risfdep ) ! turbocline thickness 158 ELSE ; CALL iom_put( "mldkz5" , hmld ) ! turbocline depth 159 END IF 160 ENDIF 159 161 ENDIF 160 162 !
Note: See TracChangeset
for help on using the changeset viewer.