Changeset 10416 for NEMO/trunk/src/TOP/PISCES/P4Z/p4zfechem.F90

Timestamp:

2018-12-19T12:45:43+01:00 (5 years ago)

Author:

aumont

Message:

Remove LFe from standard PISCES code

File:

• NEMO/trunk/src/TOP/PISCES/P4Z/p4zfechem.F90 (modified) (1 diff)

NEMO/trunk/src/TOP/PISCES/P4Z/p4zfechem.F90

@@ -195 +195 @@
                   zaggliga = zlam1a * xstep * zligco
                   zaggligb = zlam1b * xstep * zligco
-                  tra(ji,jj,jk,jpfep) = tra(ji,jj,jk,jpfep) + precip(ji,jj,jk)
                   tra(ji,jj,jk,jplgw) = tra(ji,jj,jk,jplgw) - zaggliga - zaggligb
                   zlcoll3d(ji,jj,jk)  = zaggliga + zaggligb