Changeset 869 for trunk/NEMO/LIM_SRC_3/limthd_sal.F90

Timestamp:

2008-03-26T10:21:54+01:00 (16 years ago)

Author:

rblod

Message:

Parallelisation of LIM3. This commit seems to ensure the reproducibility mono/mpp. See ticket #77.

File:

• trunk/NEMO/LIM_SRC_3/limthd_sal.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC_3/limthd_sal.F90

@@ -29 +29 @@
    !! * Routine accessibility
    PUBLIC lim_thd_sal        ! called by lim_thd
+   PUBLIC lim_thd_sal_init   ! called by lim_thd
 
    !! * Module variables
@@ -102 +103 @@
       !!---------------------------------------------------------------------
 
-      IF ( ( numit == nstart ) .AND. ( jl == 1 ) ) &
-         CALL lim_thd_sal_init   ! Initialization
-
 !------------------------------------------------------------------------------|
 ! 1) Constant salinity, constant in time                                       |