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 3206 for branches/2011/dev_NEMO_MERGE_2011 – NEMO

Ignore:
Timestamp:
2011-12-09T14:03:00+01:00 (12 years ago)
Author:
cetlod
Message:

Minor bug correction in p4zflx

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zflx.F90

    r3192 r3206  
    104104      !     IS USED TO COMPUTE AIR-SEA FLUX OF CO2 
    105105 
    106       CALL p4z_patm( kt )    ! Get sea-level pressure (E&K [1981] climatology) for use in flux calcs 
     106      IF( kt /= nit000 ) CALL p4z_patm( kt )    ! Get sea-level pressure (E&K [1981] climatology) for use in flux calcs 
    107107 
    108108      IF( ln_co2int ) THEN  
Note: See TracChangeset for help on using the changeset viewer.