Changeset 2310 for trunk/NEMO/LIM_SRC_3/limdia.F90

Timestamp:

2010-10-25T16:52:59+02:00 (14 years ago)

Author:

rblod

Message:

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

File:

• trunk/NEMO/LIM_SRC_3/limdia.F90 (modified) (4 diffs)

trunk/NEMO/LIM_SRC_3/limdia.F90

@@ -19 +19 @@
    USE in_out_manager
    USE par_ice         ! ice parameters
+   USE ice_oce         ! 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
    PRIVATE
@@ -445 +448 @@
       INTEGER  ::   jv   ,     &  ! dummy loop indice
          &          ntot ,     &
-         &          ndeb
+         &          ndeb ,     &
+         &          irecl
 
       REAL(wp) ::   zxx0, zxx1    ! temporary scalars
 
       CHARACTER(len=jpchinf) ::   titinf
+      CHARACTER(len=50)      ::   clname
       !!-------------------------------------------------------------------
 
@@ -573 +578 @@
 
       ! 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 ctlopn( numevo_ice, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',    &
+         &         irecl, numout, narea, 1 )
 
       !- ecriture de 2 lignes d''entete :