- Timestamp:
- 2015-07-10T13:28:53+02:00 (9 years ago)
- Location:
- branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/C14b
- Files:
-
- 2 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/C14b/trcsms_c14b.F90
r3680 r5581 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 … … 54 54 !!---------------------------------------------------------------------- 55 55 !! NEMO/TOP 3.3 , NEMO Consortium (2010) 56 !! $ Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/SMS/trcc14bomb.F90,v 1.2 2005/11/14 16:42:43 opalod Exp$56 !! $Id$ 57 57 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 58 58 !!---------------------------------------------------------------------- … … 290 290 ENDIF 291 291 ! 292 IF( l n_diatrc) THEN293 IF( lk_iomput ) THEN294 CALL iom_put( "qtrC14b" , qtr_c14)295 CALL iom_put( "qintC14b" , qint_c14)296 CALL iom_put( "fdecay" , zdecay )297 ELSE292 IF( lk_iomput ) THEN 293 CALL iom_put( "qtrC14b" , qtr_c14 ) 294 CALL iom_put( "qintC14b" , qint_c14 ) 295 CALL iom_put( "fdecay" , zdecay ) 296 ELSE 297 IF( ln_diatrc ) THEN 298 298 trc2d(:,: ,jp_c14b0_2d ) = qtr_c14 (:,:) 299 299 trc2d(:,: ,jp_c14b0_2d + 1 ) = qint_c14(:,:) 300 300 trc3d(:,:,:,jp_c14b0_3d ) = zdecay (:,:,:) 301 302 ENDIF 303 304 IF( l_trdtrc ) CALL trd_ mod_trc( tra(:,:,:,jpc14), jpc14, jptra_trd_sms, kt ) ! save trends301 ENDIF 302 ENDIF 303 304 IF( l_trdtrc ) CALL trd_trc( tra(:,:,:,jpc14), jpc14, jptra_sms, kt ) ! save trends 305 305 306 306 CALL wrk_dealloc( jpi, jpj, zatmbc14 ) -
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/C14b/trcwri_c14b.F90
r4305 r5581 6 6 !! History : 1.0 ! 2009-05 (C. Ethe) Original code 7 7 !!---------------------------------------------------------------------- 8 #if defined key_top && key_c14b && defined key_iomput8 #if defined key_top && defined key_c14b && defined key_iomput 9 9 !!---------------------------------------------------------------------- 10 10 !! 'key_c14b' c14b model … … 37 37 DO jn = jp_c14b0, jp_c14b1 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.