Changeset 11658 for NEMO/branches/2019/ENHANCE-03_domcfg/src/iom.F90

Timestamp:

2019-10-07T19:55:50+02:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-03_domcfg: forced local domain to read the overlap region + re-arange the ocean output print (ticket #2143)

File:

• NEMO/branches/2019/ENHANCE-03_domcfg/src/iom.F90 (modified) (3 diffs)

NEMO/branches/2019/ENHANCE-03_domcfg/src/iom.F90

@@ -660 +660 @@
       ! do we read the overlap 
       ! ugly patch SM+JMM+RB to overwrite global definition in some cases
-      llnoov = (jpni * jpnj ) == jpnij .AND. .NOT. lk_agrif
+      !llnoov = (jpni * jpnj ) == jpnij .AND. .NOT. lk_agrif
+      ! for domain_cfg, force to read the full domain
+      llnoov = .FALSE.
       ! create the file name by added, if needed, TRIM(Agrif_CFixed()) and TRIM(clsuffix)
       ! =============
@@ -1052 +1054 @@
          ! do we read the overlap 
          ! ugly patch SM+JMM+RB to overwrite global definition in some cases
-         llnoov = (jpni * jpnj ) == jpnij .AND. .NOT. lk_agrif 
+         ! 
+         !llnoov = (jpni * jpnj ) == jpnij .AND. .NOT. lk_agrif 
+         ! for domain_cfg tools force to read the full domain
+         llnoov = .FALSE.
          ! check kcount and kstart optionals parameters...
          IF( PRESENT(kcount) .AND. (.NOT. PRESENT(kstart)) ) CALL ctl_stop(trim(clinfo), 'kcount present needs kstart present')
@@ -1233 +1238 @@
                ENDIF
             ENDIF
-      
+            WRITE(numout,*) 'istart icnt',istart, ' ', icnt 
+            WRITE(numout,*) ' idx i1, i2, j1, j2 ',ix1, ix2, iy1, iy2
             CALL iom_nf90_get( kiomid, idvar, inbdim, istart, icnt, ix1, ix2, iy1, iy2, pv_r1d, pv_r2d, pv_r3d )