Changeset 4510


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

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

Location:
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/TRP
Files:
3 edited

Legend:

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

    r3294 r4510  
    9393        DO jn = 1, jptra 
    9494           ztrtrd(:,:,:,jn) = tra(:,:,:,jn) - ztrtrd(:,:,:,jn) 
    95            CALL trd_tra( kt, 'TRC', jn, jptra_trd_ldf, ztrtrd(:,:,:,jn) ) 
     95           CALL trd_tra( kt, 'TRC', jn, jptra_trd_bbl, ztrtrd(:,:,:,jn) ) 
    9696        END DO 
    9797        CALL wrk_dealloc( jpi, jpj, jpk, jptra, ztrtrd ) ! temporary save of trends 
  • branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/TRP/trdmld_trc.F90

    r3793 r4510  
    320320      END DO 
    321321 
    322       CALL wrk_alloc( jpi, jpj, zvlmsk ) 
     322      CALL wrk_dealloc( jpi, jpj, zvlmsk ) 
    323323#endif 
    324324      ! 
  • 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.