Changeset 221 for trunk/NEMO/OPA_SRC/mppini_2.h90

Timestamp:

2005-03-18T16:02:52+01:00 (19 years ago)

Author:

opalod

Message:

CT : UPDATE157 : allow to read (using jpizoom, jpjzoom & jpiglo, jpjglo indices) the bathymetry area corresponding to the configuration used, not the whole domain

File:

• trunk/NEMO/OPA_SRC/mppini_2.h90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/mppini_2.h90

@@ -74 +74 @@
          imask                                ! temporary global workspace
 
-      REAL(wp), DIMENSION(jpidta,jpjdta) ::   &
+      REAL(wp), DIMENSION(jpiglo,jpjglo) ::   &
          zlamt, zphit, zdta                   ! temporary data workspace
       REAL(wp), DIMENSION(jpk) ::   &   
@@ -131 +131 @@
             ipk = 1
             zdt = rdt
-            CALL flinopen( clname, 1, jpidta, 1, jpjdta, .FALSE.,   &
+
+            CALL flinopen( clname, jpizoom, jpiglo, jpjzoom, jpjglo, .FALSE.,   &
                            ipi, ipj, ipk, zlamt, zphit, zdept, itime, istep, zdate0, zdt, inum )
-            CALL flinget( inum, clvar, jpidta, jpjdta, 1,   &
-                          itime, 1, 1, 1, jpidta, 1, jpjdta, zdta(:,:) )
+            CALL flinget( inum, clvar, jpiglo, jpjglo, 1,   &
+                          itime, 1, 1, jpizoom, jpiglo, jpjzoom, jpjglo, zdta(:,:) )
             CALL flinclo( inum )
       ELSE
@@ -145 +146 @@
 
       imask(:,:)=1
-      WHERE ( zdta(jpizoom:jpiglo+jpizoom-1, jpjzoom:jpjglo+jpjzoom-1) <= 0. ) imask = 0
-
-      
+      WHERE ( zdta(:,:) <= 0. ) imask = 0
+
       !  1. Dimension arrays for subdomains
       ! -----------------------------------