- Timestamp:
- 2013-11-21T15:59:57+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/trcstp.F90
r4147 r4306 11 11 !!---------------------------------------------------------------------- 12 12 USE oce_trc ! ocean dynamics and active tracers variables 13 USE sbc_oce 13 14 USE trc 14 15 USE trctrp ! passive tracers transport … … 51 52 INTEGER :: jk, jn ! dummy loop indices 52 53 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 54 57 !!------------------------------------------------------------------- 55 58 ! … … 66 69 ENDIF 67 70 ! 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 71 82 ! 72 83 IF(ln_ctl) THEN … … 95 106 ENDIF 96 107 ! 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 ! 97 114 ztrai = 0._wp ! content of all tracers 98 115 DO jn = 1, jptra
Note: See TracChangeset
for help on using the changeset viewer.