- Timestamp:
- 2017-08-17T13:39:18+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcsms_idtra.F90
r6829 r8442 165 165 !ENDIF 166 166 ! 167 IF( lk_iomput ) THEN168 167 CALL iom_put( "qtrIDTRA" , qtr_idtra (:,:,1) ) 169 168 CALL iom_put( "qintIDTRA" , qint_idtra(:,:,1) ) 170 169 CALL iom_put( "invIDTRA" , inv_idtra(:,:,1) ) 171 ELSE172 IF( ln_diatrc ) THEN173 trc2d(:,:,jp_idtra0_2d ) = qtr_idtra (:,:,1)174 trc2d(:,:,jp_idtra0_2d + 1) = qint_idtra(:,:,1)175 trc2d(:,:,jp_idtra0_2d + 2) = inv_idtra(:,:,1)176 END IF177 END IF178 170 ! 179 171 # if defined key_debug_medusa
Note: See TracChangeset
for help on using the changeset viewer.