- Timestamp:
- 2015-01-20T15:26:13+01:00 (9 years ago)
- Location:
- branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/TOP_SRC/CFC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90
r4319 r5038 55 55 CALL ctl_opn( numnatc_ref, 'namelist_cfc_ref' , 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 56 56 CALL ctl_opn( numnatc_cfg, 'namelist_cfc_cfg' , 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 57 CALL ctl_opn( numonc, 'output.namelist.cfc', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )57 IF(lwm) CALL ctl_opn( numonc, 'output.namelist.cfc', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 58 58 59 59 REWIND( numnatc_ref ) ! Namelist namcfcdate in reference namelist : CFC parameters … … 64 64 READ ( numnatc_cfg, namcfcdate, IOSTAT = ios, ERR = 902 ) 65 65 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfcdate in configuration namelist', lwp ) 66 WRITE ( numonc, namcfcdate )66 IF(lwm) WRITE ( numonc, namcfcdate ) 67 67 68 68 IF(lwp) THEN ! control print … … 88 88 READ ( numnatc_cfg, namcfcdia, IOSTAT = ios, ERR = 904 ) 89 89 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfcdia in configuration namelist', lwp ) 90 WRITE ( numonc, namcfcdia )90 IF(lwm) WRITE ( numonc, namcfcdia ) 91 91 92 92 DO jl = 1, jp_cfc_2d … … 110 110 ENDIF 111 111 112 CALL FLUSH ( numonc ) ! flush output namelist CFC112 IF(lwm) CALL FLUSH ( numonc ) ! flush output namelist CFC 113 113 114 114 END SUBROUTINE trc_nam_cfc -
branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90
r3680 r5038 18 18 USE par_trc ! TOP parameters 19 19 USE trc ! TOP variables 20 USE trd mod_oce21 USE trd mod_trc20 USE trd_oce 21 USE trdtrc 22 22 USE iom ! I/O library 23 23 … … 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 203 CALL trd_ mod_trc( tra(:,:,:,jn), jn, jptra_trd_sms, kt ) ! save trends201 CALL trd_trc( tra(:,:,:,jn), jn, jptra_sms, kt ) ! save trends 204 202 END DO 205 203 END IF -
branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/TOP_SRC/CFC/trcwri_cfc.F90
r4305 r5038 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.