- Timestamp:
- 2016-10-21T17:38:13+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/C14/trcwri_c14.F90
r7041 r7068 42 42 ! write the tracer concentrations in the file 43 43 ! --------------------------------------- 44 cltra = TRIM( ctrcnm(jp_c14 0) ) ! short title for tracer45 CALL iom_put( cltra, trn(:,:,:,jp_c14 0) )44 cltra = TRIM( ctrcnm(jp_c14) ) ! short title for tracer 45 CALL iom_put( cltra, trn(:,:,:,jp_c14) ) 46 46 47 47 ! compute and write the tracer diagnostic in the file … … 61 61 DO ji = 1, jpi 62 62 IF( tmask(ji,jj,jk) > 0._wp) THEN 63 z3d (ji,jj,jk) = trn(ji,jj,jk,jp_c14 0)63 z3d (ji,jj,jk) = trn(ji,jj,jk,jp_c14) 64 64 zz3d(ji,jj,jk) = LOG( z3d(ji,jj,jk) ) 65 65 ENDIF … … 114 114 ENDIF 115 115 IF( iom_use("C14Inv") ) THEN 116 ztemp = glob_sum( trn(:,:,:,jp_c14 0) * cvol(:,:,:) )116 ztemp = glob_sum( trn(:,:,:,jp_c14) * cvol(:,:,:) ) 117 117 ztemp = atomc14 * xdicsur * ztemp 118 118 CALL iom_put( "C14Inv", ztemp ) ! Radiocarbon ocean inventory [10^26 atoms]
Note: See TracChangeset
for help on using the changeset viewer.