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 4306 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/trcstp.F90 – NEMO

Ignore:
Timestamp:
2013-11-21T15:59:57+01:00 (10 years ago)
Author:
cetlod
Message:

dev_MERGE_2013 : merge in the solar mean flux branch from MERCATOR, see ticket #1187

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

    r4147 r4306  
    1111   !!---------------------------------------------------------------------- 
    1212   USE oce_trc          ! ocean dynamics and active tracers variables 
     13   USE sbc_oce 
    1314   USE trc 
    1415   USE trctrp           ! passive tracers transport 
     
    5152      INTEGER               ::  jk, jn  ! dummy loop indices 
    5253      REAL(wp)              ::  ztrai 
    53       CHARACTER (len=25)    ::  charout 
     54      CHARACTER (len=25)    ::  charout  
     55 
     56      REAL(wp), DIMENSION(:,:), POINTER ::   zqsr_tmp ! save qsr during TOP time-step 
    5457      !!------------------------------------------------------------------- 
    5558      ! 
     
    6669      ENDIF 
    6770      !     
    68      IF( nn_dttrc /= 1 )   CALL trc_sub_stp( kt )  ! averaging physical variables for sub-stepping 
    69  
    70      IF( MOD( kt , nn_dttrc ) == 0 ) THEN      ! only every nn_dttrc time step 
     71      IF( ltrcdm2dc ) THEN 
     72         ! When Diurnal cycle, core bulk and LIM2  are activated, put daily mean qsr in qsr for TOP/biogeochemistery time-step 
     73         ! and save qsr with diurnal cycle in qsr_tmp 
     74         CALL wrk_alloc( jpi,jpj, zqsr_tmp ) 
     75         zqsr_tmp(:,:) = qsr     (:,:) 
     76         qsr     (:,:) = qsr_mean(:,:)     
     77      ENDIF 
     78      !     
     79      IF( nn_dttrc /= 1 )   CALL trc_sub_stp( kt )  ! averaging physical variables for sub-stepping 
     80      !     
     81      IF( MOD( kt , nn_dttrc ) == 0 ) THEN      ! only every nn_dttrc time step 
    7182         ! 
    7283         IF(ln_ctl) THEN 
     
    95106      ENDIF 
    96107      ! 
     108      IF( ltrcdm2dc ) THEN 
     109         ! put back qsr with diurnal cycle in qsr 
     110         qsr(:,:) = zqsr_tmp(:,:) 
     111         CALL wrk_dealloc( jpi,jpj, zqsr_tmp ) 
     112      ENDIF 
     113      ! 
    97114      ztrai = 0._wp                                                   !  content of all tracers 
    98115      DO jn = 1, jptra 
Note: See TracChangeset for help on using the changeset viewer.