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 3318 for branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90 – NEMO

Ignore:
Timestamp:
2012-02-25T16:50:01+01:00 (12 years ago)
Author:
gm
Message:

Ediag branche: #927 split TRA/DYN trd computation

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

    r3294 r3318  
    2020   USE sbc_oce         ! surface boundary condition: ocean 
    2121   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 
    2425   USE in_out_manager  ! I/O manager 
    25    USE phycst          ! physical constants 
    2626   USE prtctl          ! Print control 
    2727   USE iom             ! I/O manager 
     
    3131   USE wrk_nemo       ! Memory Allocation 
    3232   USE timing         ! Timing 
    33  
    3433 
    3534   IMPLICIT NONE 
     
    8887      !! 
    8988      !! ** Action  : - update ta with the penetrative solar radiation trend 
    90       !!              - save the trend in ttrd ('key_trdtra') 
     89      !!              - send the trend to trdtra (l_trdtra=T) 
    9190      !! 
    9291      !! Reference  : Jerlov, N. G., 1968 Optical Oceanography, Elsevier, 194pp. 
     
    284283      IF( l_trdtra ) THEN     ! qsr tracers trends saved for diagnostics 
    285284         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 ) 
    287286         CALL wrk_dealloc( jpi, jpj, jpk, ztrdt )  
    288287      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.