New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3295 for trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zlys.F90 – NEMO

Ignore:
Timestamp:
2012-01-30T16:49:07+01:00 (12 years ago)
Author:
cetlod
Message:

trunk:A few additional diagnostics added in PISCES

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zlys.F90

    r3294 r3295  
    150150         IF( lk_iomput ) THEN 
    151151            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(:,:,:) ) 
    155155            CALL iom_put( "DCAL"  , zcaldiss(:,:,:) * zrfact2 * tmask(:,:,:) ) 
    156156         ELSE 
Note: See TracChangeset for help on using the changeset viewer.