Changeset 1737
- Timestamp:
- 2009-11-16T16:59:22+01:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/PISCES/p4zflx.F90
r1735 r1737 84 84 85 85 IF( kt == nittrc000 ) CALL p4z_flx_init ! Initialization (first time-step only) 86 87 88 ! -----------------------------------------------------89 ! ASSIGNATION TO EXPONENTS IN THE LISS AND MERLIVAT90 ! FORMULATION OF THE GAS EXCHANGE RATE91 ! -----------------------------------------------------92 93 nspyr = INT( n/ rdt )94 86 95 87 ! SURFACE CHEMISTRY (PCO2 AND [H+] IN
Note: See TracChangeset
for help on using the changeset viewer.