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/TOP_SRC/trcini.F90

    r7753 r7953  
    196196      USE trcadv , ONLY:  trc_adv_ini 
    197197      USE trcldf , ONLY:  trc_ldf_ini 
    198       USE trczdf , ONLY:  trc_zdf_ini 
    199198      USE trcrad , ONLY:  trc_rad_ini 
    200199      ! 
     
    205204                       CALL  trc_adv_ini          ! advection 
    206205                       CALL  trc_ldf_ini          ! lateral diffusion 
    207                        CALL  trc_zdf_ini          ! vertical diffusion 
     206                       !                          ! vertical diffusion: always implicit time stepping scheme 
    208207                       CALL  trc_rad_ini          ! positivity of passive tracers  
    209208      ! 
     
    223222      !!---------------------------------------------------------------------- 
    224223      ! 
    225       ! Initialisation of tracers Initial Conditions 
    226       IF( ln_trcdta )      CALL trc_dta_ini(jptra) 
    227  
    228       ! Initialisation of tracers Boundary Conditions 
    229       IF( ln_my_trc )     CALL trc_bc_ini(jptra) 
    230  
    231       IF( ln_rsttr ) THEN 
     224 
     225      IF( ln_trcdta )   CALL trc_dta_ini( jptra )      ! set initial tracers values 
     226 
     227      IF( ln_my_trc )   CALL trc_bc_ini ( jptra )      ! set tracers Boundary Conditions 
     228 
     229 
     230      IF( ln_rsttr ) THEN              ! restart from a file 
    232231        ! 
    233         CALL trc_rst_read              ! restart from a file 
     232        CALL trc_rst_read 
    234233        ! 
    235       ELSE 
    236         ! Initialisation of tracer from a file that may also be used for damping 
     234      ELSE                             ! Initialisation of tracer from a file that may also be used for damping 
     235!!gm BUG ?   if damping and restart, what's happening ? 
    237236        IF( ln_trcdta .AND. nb_trcdta > 0 ) THEN 
    238237            ! update passive tracers arrays with input data read from file 
     
    250249                  ENDIF 
    251250               ENDIF 
    252             ENDDO 
     251            END DO 
    253252            ! 
    254253        ENDIF 
     
    262261   END SUBROUTINE trc_ini_state 
    263262 
     263 
    264264   SUBROUTINE top_alloc 
    265265      !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.