Changeset 6207 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM
- Timestamp:
- 2016-01-04T19:14:22+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcsms_idtra.F90
r6206 r6207 143 143 & 'at it= ', kt,' date= ', ndastp 144 144 IF(lwp) WRITE(numout,*) '~~~~' 145 DO jn = jp_idtra0, jp_idtra1 146 CALL iom_rstput( kt, nitrst, numrtw, 'qint_IDTRA', qint_idtra(:,:,jn) ) 147 END DO 145 !!DO jn = jp_idtra0, jp_idtra1 146 CALL iom_rstput( kt, nitrst, numrtw, 'qint_IDTRA', qint_idtra(:,:,1) ) 147 !!END DO 148 # if defined key_debug_medusa 149 IF(lwp) WRITE(numout,*) ' IDTRA - writing diag-restart - DONE trc_sms_idtra -- ' 150 CALL flush(numout) 151 # endif 148 152 ENDIF 149 153 ! … … 160 164 END IF 161 165 ! 166 # if defined key_debug_medusa 167 IF(lwp) WRITE(numout,*) ' IDTRA - writing diag - DONE trc_sms_idtra -- ' 168 CALL flush(numout) 169 # endif 170 ! 162 171 IF( l_trdtrc ) THEN 172 # if defined key_debug_medusa 173 IF(lwp) WRITE(numout,*) ' IDTRA - writing trends - trc_sms_idtra -- ' 174 CALL flush(numout) 175 # endif 163 176 DO jn = jp_idtra0, jp_idtra1 164 177 CALL trd_trc( tra(:,:,:,jn), jn, jptra_sms, kt ) ! save trends 165 178 END DO 179 # if defined key_debug_medusa 180 IF(lwp) WRITE(numout,*) ' IDTRA - writing trends - DONE trc_sms_idtra -- ' 181 CALL flush(numout) 182 # endif 166 183 END IF 167 184 !
Note: See TracChangeset
for help on using the changeset viewer.