Changeset 4996 for trunk/NEMOGCM/NEMO/TOP_SRC/CFC
- Timestamp:
- 2014-12-22T12:56:38+01:00 (9 years ago)
- Location:
- trunk/NEMOGCM/NEMO/TOP_SRC/CFC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90
r4990 r4996 185 185 CALL iom_rstput( kt, nitrst, numrtw, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jn) ) 186 186 END DO 187 ENDIF 188 ! 189 IF( ln_diatrc ) THEN 190 ! 191 IF( lk_iomput ) THEN 192 CALL iom_put( "qtrCFC11" , qtr_cfc (:,:,1) ) 193 CALL iom_put( "qintCFC11" , qint_cfc(:,:,1) ) 194 ELSE 195 trc2d(:,:,jp_cfc0_2d ) = qtr_cfc (:,:,1) 196 trc2d(:,:,jp_cfc0_2d + 1) = qint_cfc(:,:,1) 197 END IF 198 ! 187 ENDIF 188 ! 189 IF( lk_iomput ) THEN 190 CALL iom_put( "qtrCFC11" , qtr_cfc (:,:,1) ) 191 CALL iom_put( "qintCFC11" , qint_cfc(:,:,1) ) 192 ELSE 193 IF( ln_diatrc ) THEN 194 trc2d(:,:,jp_cfc0_2d ) = qtr_cfc (:,:,1) 195 trc2d(:,:,jp_cfc0_2d + 1) = qint_cfc(:,:,1) 196 END IF 199 197 END IF 200 198 ! 201 199 IF( l_trdtrc ) THEN 202 200 DO jn = jp_cfc0, jp_cfc1 -
trunk/NEMOGCM/NEMO/TOP_SRC/CFC/trcwri_cfc.F90
r4305 r4996 37 37 DO jn = jp_cfc0, jp_cfc1 38 38 cltra = TRIM( ctrcnm(jn) ) ! short title for tracer 39 IF( lk_vvl ) THEN 40 CALL iom_put( cltra, trn(:,:,:,jn) * fse3t_n(:,:,:) ) 41 ELSE 42 CALL iom_put( cltra, trn(:,:,:,jn) ) 43 ENDIF 39 CALL iom_put( cltra, trn(:,:,:,jn) ) 44 40 END DO 45 41 !
Note: See TracChangeset
for help on using the changeset viewer.