Ignore:
Timestamp:
2017-04-23T09:30:41+02:00 (3 years ago)
Author:
gm
Message:

#1880 (HPC-09): add zdfphy (the ZDF manager) + remove all key_…

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC/C1D/step_c1d.F90

    r7931 r7953  
    7474                         CALL bn2( tsb, rab_b, rn2b ) ! before Brunt-Vaisala frequency 
    7575                         CALL bn2( tsn, rab_n, rn2  ) ! now    Brunt-Vaisala frequency 
    76       !  VERTICAL PHYSICS    
    77                          CALL zdf_bfr( kstp )         ! bottom friction 
    78       !                                               ! Vertical eddy viscosity and diffusivity coefficients 
    79       IF( lk_zdfric  )   CALL zdf_ric( kstp )            ! Richardson number dependent Kz 
    80       IF( lk_zdftke  )   CALL zdf_tke( kstp )            ! TKE closure scheme for Kz 
    81       IF( lk_zdfgls  )   CALL zdf_gls( kstp )            ! GLS closure scheme for Kz 
    82       IF( lk_zdfcst  )   THEN                            ! Constant Kz (reset avt, avm[uv] to the background value) 
    83          avt (:,:,:) = rn_avt0 * tmask(:,:,:) 
    84          avmu(:,:,:) = rn_avm0 * umask(:,:,:) 
    85          avmv(:,:,:) = rn_avm0 * vmask(:,:,:) 
    86       ENDIF 
    87  
    88       IF( ln_rnf_mouth ) THEN                         ! increase diffusivity at rivers mouths 
    89          DO jk = 2, nkrnf   ;   avt(:,:,jk) = avt(:,:,jk) + 2.e0 * rn_avt_rnf * rnfmsk(:,:)   ;   END DO 
    90       ENDIF 
    91       IF( ln_zdfevd  )   CALL zdf_evd( kstp )         ! enhanced vertical eddy diffusivity 
    92       IF( lk_zdftmx  )   CALL zdf_tmx( kstp )         ! tidal vertical mixing 
    93       IF( ln_zdfddm  )   CALL zdf_ddm( kstp )         ! double diffusive mixing 
    94                          CALL zdf_mxl( kstp )         ! mixed layer depth 
    95  
    96                                                       ! write tke information in the restart file 
    97       IF( lrst_oce .AND. lk_zdftke )   CALL tke_rst( kstp, 'WRITE' ) 
    98                                                       ! write gls information in the restart file 
    99       IF( lrst_oce .AND. lk_zdfgls )   CALL gls_rst( kstp, 'WRITE' ) 
     76       
     77      !  VERTICAL PHYSICS 
     78                         CALL zdf_phy( kstp )         ! vertical physics update (bfr, avt, avs, avm + MLD) 
    10079 
    10180      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
Note: See TracChangeset for help on using the changeset viewer.