Changeset 950 for branches/dev_001_GM/NEMO/OFF_SRC/DOM/domrea.F90

Timestamp:

2008-05-14T18:41:40+02:00 (16 years ago)

Author:

cetlod

Message:

phasing the OFFLINE module to the new version of NEMO, see ticket 146

File:

• branches/dev_001_GM/NEMO/OFF_SRC/DOM/domrea.F90 (modified) (4 diffs)

branches/dev_001_GM/NEMO/OFF_SRC/DOM/domrea.F90

@@ -93 +93 @@
       REAL(wp), DIMENSION(jpi,jpj) :: &
          zprt = 0.
-
-      REAL(wp), DIMENSION(1,1,jpk) :: &
-         zt1d
 #if ! defined key_zco
       INTEGER :: ik
@@ -150 +147 @@
          CALL iom_get( inum2, jpdom_data, 'fmask', fmask )
 
-#if defined key_cfg_1d
+#if defined key_c1d
          ! set umask and vmask equal tmask in 1D configuration
          IF(lwp) WRITE(numout,*)
@@ -191 +188 @@
          ! Vertical coordinates and scales factors
          !
-         CALL iom_get( inum4, jpdom_unknown, 'gdept_0', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) ) ! depth
-         gdept_0(:) = zt1d(1,1,:) 
-         CALL iom_get( inum4, jpdom_unknown, 'gdepw_0', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) )
-         gdepw_0(:) = zt1d(1,1,:) 
-         CALL iom_get( inum4, jpdom_unknown, 'e3t_0', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) )
-         e3t_0(:) = zt1d(1,1,:) 
-         CALL iom_get( inum4, jpdom_unknown, 'e3w_0', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) )
-         e3w_0(:) = zt1d(1,1,:) 
+         CALL iom_get( inum4, jpdom_unknown, 'gdept_0', gdept_0 ) ! depth
+         CALL iom_get( inum4, jpdom_unknown, 'gdepw_0', gdepw_0 )
+         CALL iom_get( inum4, jpdom_unknown, 'e3t_0'  , e3t_0   )
+         CALL iom_get( inum4, jpdom_unknown, 'e3w_0'  , e3w_0   )
 
 #if ! defined key_zco
@@ -219 +212 @@
             CALL iom_get( inum4, jpdom_data, 'hbatf', hbatf )
             
-            CALL iom_get( inum4, jpdom_unknown, 'gsigt', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) ) ! scaling coef.
-            gsigt(:) = zt1d(1,1,:) 
-            CALL iom_get( inum4, jpdom_unknown, 'gsigw', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) )
-            gsigw(:) = zt1d(1,1,:) 
-            CALL iom_get( inum4, jpdom_unknown, 'gsi3w', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) ) 
-            gsi3w(:) = zt1d(1,1,:) 
-            CALL iom_get( inum4, jpdom_unknown, 'esigt', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) )
-            esigt(:) = zt1d(1,1,:) 
-            CALL iom_get( inum4, jpdom_unknown, 'esigw', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) )
-            esigw(:) = zt1d(1,1,:) 
+            CALL iom_get( inum4, jpdom_unknown, 'gsigt', gsigt ) ! scaling coef.
+            CALL iom_get( inum4, jpdom_unknown, 'gsigw', gsigw )
+            CALL iom_get( inum4, jpdom_unknown, 'gsi3w', gsi3w ) 
+            CALL iom_get( inum4, jpdom_unknown, 'esigt', esigt )
+            CALL iom_get( inum4, jpdom_unknown, 'esigw', esigw )
 
          ENDIF