Changeset 12136
- Timestamp:
- 2019-12-10T11:57:36+01:00 (4 years ago)
- Location:
- NEMO/trunk/src/TOP
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/trcini.F90
r10817 r12136 58 58 IF(lwp) WRITE(numout,*) '~~~~~~~~' 59 59 ! 60 CALL trc_ini_ctl ! control61 60 CALL trc_nam ! read passive tracers namelists 62 61 CALL top_alloc() ! allocate TOP arrays … … 85 84 ! 86 85 END SUBROUTINE trc_init 87 88 89 SUBROUTINE trc_ini_ctl90 !!----------------------------------------------------------------------91 !! *** ROUTINE trc_ini_ctl ***92 !! ** Purpose : Control + ocean volume93 !!----------------------------------------------------------------------94 INTEGER :: jk ! dummy loop indices95 !96 ! Define logical parameter ton control dirunal cycle in TOP97 l_trcdm2dc = ln_dm2dc .OR. ( ln_cpl .AND. ncpl_qsr_freq /= 1 )98 l_trcdm2dc = l_trcdm2dc .AND. .NOT. l_offline99 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_ctl103 86 104 87 -
NEMO/trunk/src/TOP/trcstp.F90
r10570 r12136 71 71 ll_trcstat = ( ln_ctl .OR. sn_cfctl%l_trcstat ) .AND. & 72 72 & ( ( MOD( kt, sn_cfctl%ptimincr ) == 0 ) .OR. ( kt == nitend ) ) 73 74 IF( kt == nittrc000 ) CALL trc_stp_ctl ! control 73 75 IF( kt == nittrc000 .AND. lk_trdmxl_trc ) CALL trd_mxl_trc_init ! trends: Mixed-layer 74 76 ! … … 124 126 ! 125 127 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 126 142 127 143
Note: See TracChangeset
for help on using the changeset viewer.