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 4510 for branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/TRP/trdmod_trc.F90 – NEMO

Ignore:
Timestamp:
2014-02-24T12:24:35+01:00 (10 years ago)
Author:
cetlod
Message:

v3.4 stable: bugfix in trdmld_trc.F90, see ticket #1246

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/TRP/trdmod_trc.F90

    r3425 r4510  
    8888         ! 
    8989         SELECT CASE( ktrd ) 
    90          CASE( jptra_trd_xad  )       ;    WRITE (cltra,'("XAD_",4a)') 
    91          CASE( jptra_trd_yad  )       ;    WRITE (cltra,'("YAD_",4a)') 
    92          CASE( jptra_trd_zad  )       ;    WRITE (cltra,'("ZAD_",4a)') 
    93          CASE( jptra_trd_ldf  )       ;    WRITE (cltra,'("LDF_",4a)') 
    94          CASE( jptra_trd_bbl  )       ;    WRITE (cltra,'("BBL_",4a)') 
    95          CASE( jptra_trd_nsr  )       ;    WRITE (cltra,'("FOR_",4a)') 
    96          CASE( jptra_trd_zdf  )       ;    WRITE (cltra,'("ZDF_",4a)') 
    97          CASE( jptra_trd_dmp  )       ;    WRITE (cltra,'("DMP_",4a)') 
    98          CASE( jptra_trd_sms  )       ;    WRITE (cltra,'("SMS_",4a)') 
    99          CASE( jptra_trd_atf  )       ;    WRITE (cltra,'("ATF_",4a)') 
    100          CASE( jptra_trd_radb )       ;    WRITE (cltra,'("RDB_",4a)') 
    101          CASE( jptra_trd_radn )       ;    WRITE (cltra,'("RDN_",4a)') 
     90         CASE( jptra_trd_xad  )   ;    WRITE (cltra,'("XAD_",4a)') 
     91         CASE( jptra_trd_yad  )   ;    WRITE (cltra,'("YAD_",4a)') 
     92         CASE( jptra_trd_zad  )   ;    WRITE (cltra,'("ZAD_",4a)') 
     93         CASE( jptra_trd_ldf  )   ;    WRITE (cltra,'("LDF_",4a)') 
     94         CASE( jptra_trd_bbl  )   ;    WRITE (cltra,'("BBL_",4a)') 
     95         CASE( jptra_trd_nsr  )   ;    WRITE (cltra,'("FOR_",4a)') 
     96         CASE( jptra_trd_zdf  )   ;    WRITE (cltra,'("ZDF_",4a)') 
     97         CASE( jptra_trd_dmp  )   ;    WRITE (cltra,'("DMP_",4a)') 
     98         CASE( jptra_trd_sms  )   ;    WRITE (cltra,'("SMS_",4a)') 
     99         CASE( jptra_trd_atf  )   ;    WRITE (cltra,'("ATF_",4a)') 
     100         CASE( jptra_trd_radb )   ;    WRITE (cltra,'("RDB_",4a)') 
     101         CASE( jptra_trd_radn )   ;    WRITE (cltra,'("RDN_",4a)') 
    102102         END SELECT 
    103                                           cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) 
    104                                           CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     103                                       cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) 
     104                                       CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
    105105         ! 
    106106      END IF 
Note: See TracChangeset for help on using the changeset viewer.