- Timestamp:
- 2012-02-25T16:50:01+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90
r3294 r3318 20 20 USE sbc_oce ! surface boundary condition: ocean 21 21 USE trc_oce ! share SMS/Ocean variables 22 USE trdmod_oce ! ocean variables trends 23 USE trdtra ! ocean active tracers trends 22 USE trd_oce ! trends: ocean variables 23 USE trdtra ! trends manager: tracers 24 USE phycst ! physical constants 24 25 USE in_out_manager ! I/O manager 25 USE phycst ! physical constants26 26 USE prtctl ! Print control 27 27 USE iom ! I/O manager … … 31 31 USE wrk_nemo ! Memory Allocation 32 32 USE timing ! Timing 33 34 33 35 34 IMPLICIT NONE … … 88 87 !! 89 88 !! ** Action : - update ta with the penetrative solar radiation trend 90 !! - s ave the trend in ttrd ('key_trdtra')89 !! - send the trend to trdtra (l_trdtra=T) 91 90 !! 92 91 !! Reference : Jerlov, N. G., 1968 Optical Oceanography, Elsevier, 194pp. … … 284 283 IF( l_trdtra ) THEN ! qsr tracers trends saved for diagnostics 285 284 ztrdt(:,:,:) = tsa(:,:,:,jp_tem) - ztrdt(:,:,:) 286 CALL trd_tra( kt, 'TRA', jp_tem, jptra_ trd_qsr, ztrdt )285 CALL trd_tra( kt, 'TRA', jp_tem, jptra_qsr, ztrdt ) 287 286 CALL wrk_dealloc( jpi, jpj, jpk, ztrdt ) 288 287 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.