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 1737 – NEMO

Changeset 1737


Ignore:
Timestamp:
2009-11-16T16:59:22+01:00 (14 years ago)
Author:
cetlod
Message:

supress useless lines in p4zflx.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/PISCES/p4zflx.F90

    r1735 r1737  
    8484 
    8585      IF( kt == nittrc000  )   CALL p4z_flx_init      ! Initialization (first time-step only) 
    86  
    87  
    88       ! ----------------------------------------------------- 
    89       !     ASSIGNATION TO EXPONENTS IN THE LISS AND MERLIVAT 
    90       !     FORMULATION OF THE GAS EXCHANGE RATE 
    91       ! ----------------------------------------------------- 
    92  
    93       nspyr = INT( n/ rdt ) 
    9486 
    9587      ! SURFACE CHEMISTRY (PCO2 AND [H+] IN 
Note: See TracChangeset for help on using the changeset viewer.