Changeset 2313

Timestamp:

2010-10-25T17:19:12+02:00 (14 years ago)

Author:

rblod

Message:

Add lim_dia changes for mpp on the 3.3 beta (LIM3 only), see ticket #741

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/LIM_SRC_3/limdia.F90 (modified) (5 diffs)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/LIM_SRC_3/limdia.F90

@@ -19 +19 @@
    USE in_out_manager
    USE par_ice         ! ice parameters
+   USE sbc_ice         ! ice variables
+   USE daymod
    USE dom_ice
    USE ice
@@ -25 +27 @@
    USE dom_oce
    USE sbc_oce         ! Surface boundary condition: ocean fields
+   USE dom_oce
+   USE lib_mpp
 
    IMPLICIT NONE
@@ -75 +79 @@
    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
+
 
 CONTAINS
@@ -445 +450 @@
       INTEGER  ::   jv   ,     &  ! dummy loop indice
          &          ntot ,     &
-         &          ndeb
+         &          ndeb ,     &
+         &          irecl
 
       REAL(wp) ::   zxx0, zxx1    ! temporary scalars
 
       CHARACTER(len=jpchinf) ::   titinf
+      CHARACTER(len=50)      ::   clname
       !!-------------------------------------------------------------------
 
@@ -573 +580 @@
 
       ! opening  "ice_evolu" file
-      CALL ctl_opn( numevo_ice, 'ice.evolu', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )
+      IF ( lk_mpp ) THEN
+         WRITE(clname,FMT="('ice.evolu_',I4.4)") narea-1
+      ELSE
+         clname = 'ice.evolu'
+      END IF
+      irecl = ( jpchinf + 1 ) * nvinfo 
+      CALL ctl_opn( numevo_ice, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',    &
+         &         irecl, numout, .TRUE., narea )
 
       !- ecriture de 2 lignes d''entete :