Ignore:
Timestamp:
2017-08-29T16:18:37+02:00 (4 years ago)
Author:
jpalmier
Message:

JPALM — 29-08-2017 — trends bug fix TOT, ZDF, ZDP

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_package_trdtrc/NEMOGCM/NEMO/TOP_SRC/TRP/trdtrc.F90

    r8467 r8470  
    187187 
    188188 
    189                            IF  (iom_use(cltra)) THEN 
     189      IF  (iom_use(cltra)) THEN 
    190190# if defined key_debug_medusa 
    191                               IF(lwp) WRITE(numout,*) ' TREND stats (min, max,sum) kt = ',kt ,' jn = ',kjn 
    192                               CALL trc_rst_dia_stat( ptrtrd(:,:,1), cltra) 
     191         IF(lwp) WRITE(numout,*) ' TREND stats (min, max,sum) kt = ',kt ,' jn = ',kjn 
     192         CALL trc_rst_dia_stat( ptrtrd(:,:,1), cltra) 
    193193# endif 
    194                               CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
     194         CALL iom_put( cltra,  ptrtrd(:,:,:) ) 
    195195# if defined key_debug_medusa 
    196                            ELSE 
    197                               IF(lwp) WRITE(numout,*) & 
    198                               ' TREND -- No output asked for ',cltra,' kt = ',kt,' jn = ',kjn 
    199                               CALL trc_rst_dia_stat( ptrtrd(:,:,1), cltra) 
     196      ELSE 
     197         IF(lwp) WRITE(numout,*) & 
     198                      ' TREND -- No output asked for ',cltra,' kt = ',kt,' jn = ',kjn 
     199         CALL trc_rst_dia_stat( ptrtrd(:,:,1), cltra) 
    200200# endif 
    201                            ENDIF 
     201      ENDIF 
    202202 
    203203   END SUBROUTINE trd_trc_iomput 
Note: See TracChangeset for help on using the changeset viewer.