Changeset 3295 for trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zlys.F90
- Timestamp:
- 2012-01-30T16:49:07+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zlys.F90
r3294 r3295 150 150 IF( lk_iomput ) THEN 151 151 zrfact2 = 1.e3 * rfact2r 152 CALL iom_put( "PH" , hi (:,:,:) * tmask(:,:,:) )153 CALL iom_put( "CO3" , zco3 (:,:,:) * tmask(:,:,:) )154 CALL iom_put( "CO3sat", aksp (:,:,:) / calcon * tmask(:,:,:) )152 CALL iom_put( "PH" , hi (:,:,:) * tmask(:,:,:) ) 153 CALL iom_put( "CO3" , zco3 (:,:,:) * 1e+3 * tmask(:,:,:) ) 154 CALL iom_put( "CO3sat", aksp (:,:,:) * 1e+3 / calcon * tmask(:,:,:) ) 155 155 CALL iom_put( "DCAL" , zcaldiss(:,:,:) * zrfact2 * tmask(:,:,:) ) 156 156 ELSE
Note: See TracChangeset
for help on using the changeset viewer.