New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12136 – NEMO

Changeset 12136


Ignore:
Timestamp:
2019-12-10T11:57:36+01:00 (4 years ago)
Author:
cetlod
Message:

TOP updates

Location:
NEMO/trunk/src/TOP
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/TOP/trcini.F90

    r10817 r12136  
    5858      IF(lwp) WRITE(numout,*) '~~~~~~~~' 
    5959      ! 
    60       CALL trc_ini_ctl   ! control  
    6160      CALL trc_nam       ! read passive tracers namelists 
    6261      CALL top_alloc()   ! allocate TOP arrays 
     
    8584      ! 
    8685   END SUBROUTINE trc_init 
    87  
    88  
    89    SUBROUTINE trc_ini_ctl 
    90       !!---------------------------------------------------------------------- 
    91       !!                     ***  ROUTINE trc_ini_ctl  *** 
    92       !! ** Purpose :        Control  + ocean volume 
    93       !!---------------------------------------------------------------------- 
    94       INTEGER ::   jk    ! dummy loop indices 
    95       ! 
    96       ! Define logical parameter ton control dirunal cycle in TOP 
    97       l_trcdm2dc = ln_dm2dc .OR. ( ln_cpl .AND. ncpl_qsr_freq /= 1 ) 
    98       l_trcdm2dc = l_trcdm2dc  .AND. .NOT. l_offline 
    99       IF( l_trcdm2dc .AND. lwp )   CALL ctl_warn( 'Coupling with passive tracers and used of diurnal cycle.',   & 
    100          &                           'Computation of a daily mean shortwave for some biogeochemical models ' ) 
    101       ! 
    102    END SUBROUTINE trc_ini_ctl 
    10386 
    10487 
  • NEMO/trunk/src/TOP/trcstp.F90

    r10570 r12136  
    7171      ll_trcstat  = ( ln_ctl .OR. sn_cfctl%l_trcstat ) .AND. & 
    7272     &              ( ( MOD( kt, sn_cfctl%ptimincr ) == 0 ) .OR. ( kt == nitend ) ) 
     73 
     74      IF( kt == nittrc000 )                      CALL trc_stp_ctl   ! control  
    7375      IF( kt == nittrc000 .AND. lk_trdmxl_trc )  CALL trd_mxl_trc_init    ! trends: Mixed-layer 
    7476      ! 
     
    124126      ! 
    125127   END SUBROUTINE trc_stp 
     128 
     129   SUBROUTINE trc_stp_ctl 
     130      !!---------------------------------------------------------------------- 
     131      !!                     ***  ROUTINE trc_stp_ctl  *** 
     132      !! ** Purpose :        Control  + ocean volume 
     133      !!---------------------------------------------------------------------- 
     134      ! 
     135      ! Define logical parameter ton control dirunal cycle in TOP 
     136      l_trcdm2dc = ln_dm2dc .OR. ( ln_cpl .AND. ncpl_qsr_freq /= 1 ) 
     137      l_trcdm2dc = l_trcdm2dc  .AND. .NOT. l_offline 
     138      IF( l_trcdm2dc .AND. lwp )   CALL ctl_warn( 'Coupling with passive tracers and used of diurnal cycle.',   & 
     139         &                           'Computation of a daily mean shortwave for some biogeochemical models ' ) 
     140      ! 
     141   END SUBROUTINE trc_stp_ctl 
    126142 
    127143 
Note: See TracChangeset for help on using the changeset viewer.