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/ASM/asmbkg.F90

    r6140 r7953  
    2828   USE ldfslp             ! Lateral diffusion: slopes of neutral surfaces 
    2929   USE tradmp             ! Tracer damping 
    30 #if defined key_zdftke 
    3130   USE zdftke             ! TKE vertical physics 
    32 #endif 
    3331   USE eosbn2             ! Equation of state (eos_bn2 routine) 
    3432   USE zdfmxl             ! Mixed layer depth 
     
    9492            IF( nitbkg_r == nit000 - 1 ) THEN      ! Treat special case when nitbkg = 0 
    9593               zdate = REAL( ndastp ) 
    96 #if defined key_zdftke 
    97                ! lk_zdftke=T :   Read turbulent kinetic energy ( en ) 
    98                IF(lwp) WRITE(numout,*) ' Reading TKE (en) from restart...' 
    99                CALL tke_rst( nit000, 'READ' )               ! lk_zdftke=T :   Read turbulent kinetic energy ( en ) 
    100  
    101 #endif 
     94               IF( ln_zdftke ) THEN                   ! read turbulent kinetic energy ( en ) 
     95                  IF(lwp) WRITE(numout,*) ' Reading TKE (en) from restart...' 
     96                  CALL tke_rst( nit000, 'READ' ) 
     97               ENDIF 
    10298            ELSE 
    10399               zdate = REAL( ndastp ) 
     
    111107            CALL iom_rstput( kt, nitbkg_r, inum, 'sn'     , tsn(:,:,:,jp_sal) ) 
    112108            CALL iom_rstput( kt, nitbkg_r, inum, 'sshn'   , sshn              ) 
    113 #if defined key_zdftke 
    114             CALL iom_rstput( kt, nitbkg_r, inum, 'en'     , en                ) 
    115 #endif 
     109            IF( ln_zdftke )   CALL iom_rstput( kt, nitbkg_r, inum, 'en'     , en                ) 
    116110            ! 
    117111            CALL iom_close( inum ) 
Note: See TracChangeset for help on using the changeset viewer.