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 10096 for NEMO/trunk/src/TOP/TRP/trdtrc.F90 – NEMO

Ignore:
Timestamp:
2018-09-07T13:38:22+02:00 (5 years ago)
Author:
cetlod
Message:

v4.0 : bugfix on tracer trends diagnostics, see ticket #1933

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/TOP/TRP/trdtrc.F90

    r10068 r10096  
    8181         ! 
    8282         SELECT CASE( ktrd ) 
    83          CASE( jptra_xad  )       ;    WRITE (cltra,'("XAD_",4a)') 
    84          CASE( jptra_yad  )       ;    WRITE (cltra,'("YAD_",4a)') 
    85          CASE( jptra_zad  )       ;    WRITE (cltra,'("ZAD_",4a)') 
    86          CASE( jptra_ldf  )       ;    WRITE (cltra,'("LDF_",4a)') 
    87          CASE( jptra_bbl  )       ;    WRITE (cltra,'("BBL_",4a)') 
    88          CASE( jptra_nsr  )       ;    WRITE (cltra,'("FOR_",4a)') 
    89          CASE( jptra_zdf  )       ;    WRITE (cltra,'("ZDF_",4a)') 
    90          CASE( jptra_dmp  )       ;    WRITE (cltra,'("DMP_",4a)') 
    91          CASE( jptra_sms  )       ;    WRITE (cltra,'("SMS_",4a)') 
    92          CASE( jptra_atf  )       ;    WRITE (cltra,'("ATF_",4a)') 
    93          CASE( jptra_radb )       ;    WRITE (cltra,'("RDB_",4a)') 
    94          CASE( jptra_radn )       ;    WRITE (cltra,'("RDN_",4a)') 
     83         CASE( jptra_xad  )  ;  WRITE (cltra,'("XAD_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     84         CASE( jptra_yad  )  ;  WRITE (cltra,'("YAD_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     85         CASE( jptra_zad  )  ;  WRITE (cltra,'("ZAD_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     86         CASE( jptra_ldf  )  ;  WRITE (cltra,'("LDF_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     87         CASE( jptra_bbl  )  ;  WRITE (cltra,'("BBL_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     88         CASE( jptra_nsr  )  ;  WRITE (cltra,'("FOR_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     89         CASE( jptra_zdf  )  ;  WRITE (cltra,'("ZDF_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     90         CASE( jptra_zdfp )  ;  WRITE (cltra,'("ZDP_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     91         CASE( jptra_dmp  )  ;  WRITE (cltra,'("DMP_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     92         CASE( jptra_sms  )  ;  WRITE (cltra,'("SMS_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     93         CASE( jptra_tot  )  ;  WRITE (cltra,'("TOT_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     94         CASE( jptra_atf  )  ;  WRITE (cltra,'("ATF_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     95         CASE( jptra_radb )  ;  WRITE (cltra,'("RDB_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     96         CASE( jptra_radn )  ;  WRITE (cltra,'("RDN_",4a)')  ; cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) ; CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
    9597         END SELECT 
    96                                           cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) 
    97                                           CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
    9898         ! 
    9999      END IF 
Note: See TracChangeset for help on using the changeset viewer.