Changeset 3680 for branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsed.F90

Timestamp:

2012-11-27T15:42:24+01:00 (11 years ago)

Author:

rblod

Message:

First commit of the final branch for 2012 (future nemo_3_5), see ticket #1028

Location:

branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z

Files:

• . (copied) (copied from branches/2012/dev_LOCEAN_UKMO_CMCC_INGV_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z)
• p4zsed.F90 (modified) (1 diff)

branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsed.F90

@@ -105 +105 @@
             DO ji = 1, jpi
                zdep    = rfact2 / fse3t(ji,jj,1)
-               zwflux  = ( emps(ji,jj) - emp(ji,jj) ) &
-               &        * tsn(ji,jj,1,jp_sal) / ( tsn(ji,jj,1,jp_sal) - 6.0 ) / 1000.
+    !           zwflux  = ( emps(ji,jj) - emp(ji,jj) ) &
+    !           &        * tsn(ji,jj,1,jp_sal) / ( tsn(ji,jj,1,jp_sal) - 6.0 ) / 1000.
+               zwflux = 0.
                zfminus = MIN( 0., -zwflux ) * trn(ji,jj,1,jpfer) * zdep
                zfplus  = MAX( 0., -zwflux ) * 10E-9 * zdep