Changeset 10364 for NEMO/trunk/src/OCE/ZDF
- Timestamp:
- 2018-11-30T18:42:51+01:00 (6 years ago)
- Location:
- NEMO/trunk/src/OCE/ZDF
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ZDF/zdf_oce.F90
r10068 r10364 18 18 19 19 ! !!* namelist namzdf: vertical physics * 20 ! ! Adaptive-implicit vertical advection flag 21 LOGICAL , PUBLIC :: ln_zad_Aimp !: adaptive (Courant number-based) implicit vertical advection 20 22 ! ! vertical closure scheme flags 21 23 LOGICAL , PUBLIC :: ln_zdfcst !: constant coefficients -
NEMO/trunk/src/OCE/ZDF/zdfosm.F90
r10069 r10364 32 32 33 33 !!---------------------------------------------------------------------- 34 !! ' key_zdfosm' OSMOSIS scheme34 !! 'ln_zdfosm' OSMOSIS scheme 35 35 !!---------------------------------------------------------------------- 36 36 !! zdf_osm : update momentum and tracer Kz from osm scheme -
NEMO/trunk/src/OCE/ZDF/zdfphy.F90
r10069 r10364 80 80 & ln_zdfswm, & ! surface wave-induced mixing 81 81 & ln_zdfiwm, & ! internal - - - 82 & ln_zad_Aimp, & ! apdative-implicit vertical advection 82 83 & rn_avm0, rn_avt0, nn_avb, nn_havtb ! coefficients 83 84 !!---------------------------------------------------------------------- … … 101 102 IF(lwp) THEN ! Parameter print 102 103 WRITE(numout,*) ' Namelist namzdf : set vertical mixing mixing parameters' 104 WRITE(numout,*) ' adaptive-implicit vertical advection' 105 WRITE(numout,*) ' Courant number targeted application ln_zad_Aimp = ', ln_zad_Aimp 103 106 WRITE(numout,*) ' vertical closure scheme' 104 107 WRITE(numout,*) ' constant vertical mixing coefficient ln_zdfcst = ', ln_zdfcst … … 127 130 ENDIF 128 131 132 IF( ln_zad_Aimp ) THEN 133 IF( zdf_phy_alloc() /= 0 ) & 134 & CALL ctl_stop( 'STOP', 'zdf_phy_init : unable to allocate adaptive-implicit z-advection arrays' ) 135 wi(:,:,:) = 0._wp 136 ENDIF 129 137 ! !== Background eddy viscosity and diffusivity ==! 130 138 IF( nn_avb == 0 ) THEN ! Define avmb, avtb from namelist parameter … … 316 324 ! 317 325 END SUBROUTINE zdf_phy 326 INTEGER FUNCTION zdf_phy_alloc() 327 !!---------------------------------------------------------------------- 328 !! *** FUNCTION zdf_phy_alloc *** 329 !!---------------------------------------------------------------------- 330 ! Allocate wi array (declared in oce.F90) for use with the adaptive-implicit vertical velocity option 331 ALLOCATE( wi(jpi,jpj,jpk), Cu_adv(jpi,jpj,jpk), STAT= zdf_phy_alloc ) 332 IF( zdf_phy_alloc /= 0 ) CALL ctl_warn('zdf_phy_alloc: failed to allocate ln_zad_Aimp=T required arrays') 333 IF( lk_mpp ) CALL mpp_sum ( zdf_phy_alloc ) 334 END FUNCTION zdf_phy_alloc 318 335 319 336 !!======================================================================
Note: See TracChangeset
for help on using the changeset viewer.