Changeset 359 for trunk/NEMO/LIM_SRC

Timestamp:

2005-12-21T11:46:45+01:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_033 : RB + CT : Add new surface pressure gradient algorithms

File:

• trunk/NEMO/LIM_SRC/limflx.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC/limflx.F90

@@ -72 +72 @@
       REAL(wp) ::   &
          zinda  ,              &  ! switch for testing the values of ice concentration
-         z1mthcm,              &  ! 1 - thcm
+         z1mthcm                  ! 1 - thcm
 !!         zfcm1  ,              &  ! solar  heat fluxes
 !!         zfcm2  ,              &  !  non solar heat fluxes
 #if defined key_lim_fdd   
+      REAL(wp) ::   &
          zfons,                &  ! salt exchanges at the ice/ocean interface
          zpme                     ! freshwater exchanges at the ice/ocean interface
 #else
+      REAL(wp) ::   &
          zprs  , zfons,        &  ! salt exchanges at the ice/ocean interface
          zpmess                   ! freshwater exchanges at the ice/ocean interface