Changeset 6041 for branches/2015/dev_r5776_UKMO2_OBS_efficiency_improvs/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90
- Timestamp:
- 2015-12-14T10:06:06+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5776_UKMO2_OBS_efficiency_improvs/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90
r5386 r6041 6 6 !! History : 8.0 ! 1997-06 (G. Madec) Original code from inimix 7 7 !! 1.0 ! 2002-08 (G. Madec) F90 : free form 8 !! - ! 2005-06 (C. Ethe) KPP parameterization8 !! - ! 2005-06 (C. Ethe) KPP scheme 9 9 !! - ! 2009-07 (G. Madec) add avmb, avtb in restart for cen2 advection 10 !! 3.7 ! 2014-12 (G. Madec) remove KPP scheme 10 11 !!---------------------------------------------------------------------- 11 12 … … 14 15 !!---------------------------------------------------------------------- 15 16 USE par_oce ! mesh and scale factors 16 USE ldftra_oce ! ocean active tracers: lateral physics17 USE ldfdyn_oce ! ocean dynamics lateral physics18 17 USE zdf_oce ! TKE vertical mixing 19 USE lib_mpp ! distribued memory computing18 USE sbc_oce ! surface module (only for nn_isf in the option compatibility test) 20 19 USE zdftke ! TKE vertical mixing 21 20 USE zdfgls ! GLS vertical mixing 22 USE zdf kpp ! KPP vertical mixing21 USE zdfric ! Richardson vertical mixing 23 22 USE zdfddm ! double diffusion mixing 24 23 USE zdfevd ! enhanced vertical diffusion 25 USE zdfric ! Richardson vertical mixing26 24 USE tranpc ! convection: non penetrative adjustment 27 25 USE ldfslp ! iso-neutral slopes 28 26 ! 29 27 USE in_out_manager ! I/O manager 30 28 USE iom ! IOM library 29 USE lib_mpp ! distribued memory computing 31 30 32 31 IMPLICIT NONE … … 50 49 !! ** Method : Read namelist namzdf, control logicals 51 50 !!---------------------------------------------------------------------- 52 INTEGER :: ioptio ! temporary scalar 53 INTEGER :: ios 51 INTEGER :: ioptio, ios ! local integers 54 52 !! 55 53 NAMELIST/namzdf/ rn_avm0, rn_avt0, nn_avb, nn_havtb, ln_zdfexp, nn_zdfexp, & … … 111 109 ioptio = ioptio+1 112 110 ENDIF 113 IF( lk_zdfkpp ) THEN 114 IF(lwp) WRITE(numout,*) ' KPP dependent eddy coefficients' 115 ioptio = ioptio+1 116 ENDIF 117 IF( ioptio == 0 .OR. ioptio > 1 .AND. .NOT. lk_esopa ) & 111 IF( ioptio == 0 .OR. ioptio > 1 ) & 118 112 & CALL ctl_stop( ' one and only one vertical diffusion option has to be defined ' ) 119 IF( ( lk_zdfric .OR. lk_zdfgls .OR. lk_zdfkpp) .AND. ln_isfcav ) &113 IF( ( lk_zdfric .OR. lk_zdfgls ) .AND. ln_isfcav ) & 120 114 & CALL ctl_stop( ' only zdfcst and zdftke were tested with ice shelves cavities ' ) 121 115 ! … … 143 137 IF(lwp) WRITE(numout,*) ' use the GLS closure scheme' 144 138 ENDIF 145 IF( lk_zdfkpp ) THEN 146 IF(lwp) WRITE(numout,*) ' use the KPP closure scheme' 147 IF(lk_mpp) THEN 148 IF(lwp) WRITE(numout,cform_err) 149 IF(lwp) WRITE(numout,*) 'The KPP scheme is not ready to run in MPI' 150 ENDIF 151 ENDIF 152 IF ( ioptio > 1 .AND. .NOT. lk_esopa ) CALL ctl_stop( ' chose between ln_zdfnpc and ln_zdfevd' ) 153 IF( ioptio == 0 .AND. .NOT.( lk_zdftke .OR. lk_zdfgls .OR. lk_zdfkpp ) ) & 154 CALL ctl_stop( ' except for TKE, GLS or KPP physics, a convection scheme is', & 139 IF ( ioptio > 1 ) CALL ctl_stop( ' chose between ln_zdfnpc and ln_zdfevd' ) 140 IF( ioptio == 0 .AND. .NOT.( lk_zdftke .OR. lk_zdfgls ) ) & 141 CALL ctl_stop( ' except for TKE or GLS physics, a convection scheme is', & 155 142 & ' required: ln_zdfevd or ln_zdfnpc logicals' ) 156 143
Note: See TracChangeset
for help on using the changeset viewer.