- Timestamp:
- 2017-05-09T12:14:45+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlys.F90
r7617 r8003 120 120 ! CACO3 GETS DISSOLVED EVEN IN THE CASE OF OVERSATURATION) 121 121 zdispot = kdca * zexcess * trb(ji,jj,jk,jpcal) 122 # if defined key_degrad123 zdispot = zdispot * facvol(ji,jj,jk)124 # endif125 122 ! CHANGE OF [CO3--] , [ALK], PARTICULATE [CACO3], 126 123 ! AND [SUM(CO2)] DUE TO CACO3 DISSOLUTION/PRECIPITATION … … 144 141 CALL iom_put( "AOU" , MAX(0., zwork(:,:,:) ) ) 145 142 ENDIF 146 ELSE147 IF( ln_diatrc ) THEN148 trc3d(:,:,:,jp_pcs0_3d ) = -1. * LOG10( hi(:,:,:) ) * tmask(:,:,:)149 trc3d(:,:,:,jp_pcs0_3d + 1) = zco3(:,:,:) * tmask(:,:,:)150 trc3d(:,:,:,jp_pcs0_3d + 2) = zco3sat(:,:,:) * tmask(:,:,:)151 ENDIF152 143 ENDIF 153 144 !
Note: See TracChangeset
for help on using the changeset viewer.