Changeset 497 for trunk/NEMO/OFF_SRC/DOM/domrea_fdir.h90

Timestamp:

2006-09-12T13:03:53+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_064:CE:re-organization of coordinate definition and scale factors

File:

• trunk/NEMO/OFF_SRC/DOM/domrea_fdir.h90 (modified) (1 diff)

trunk/NEMO/OFF_SRC/DOM/domrea_fdir.h90

@@ -77 +77 @@
       ! 4. depth and vertical scale factors
       ! -----------------------------------
-#if defined key_s_coord
-      clfield='HBATT'   ;    READ(inum) clfield, hbatt
-      clfield='HBATU'   ;    READ(inum) clfield, hbatu
-      clfield='HBATV'   ;    READ(inum) clfield, hbatv
-      clfield='HBATF'   ;    READ(inum) clfield, hbatf
-      clfield='GSIGT'   ;    READ(inum) clfield, gsigt
-      clfield='GSIGW'   ;    READ(inum) clfield, gsigw
-      clfield='GSI3W'   ;    READ(inum) clfield, gsi3w
-      clfield='ESIGT'   ;    READ(inum) clfield, esigt
-      clfield='ESIGW'   ;    READ(inum) clfield, esigw
+#if ! defined key_zco
+      IF( ln_sco ) THEN
+         clfield='HBATT'   ;    READ(inum) clfield, hbatt
+         clfield='HBATU'   ;    READ(inum) clfield, hbatu
+         clfield='HBATV'   ;    READ(inum) clfield, hbatv
+         clfield='HBATF'   ;    READ(inum) clfield, hbatf
+         clfield='GSIGT'   ;    READ(inum) clfield, gsigt
+         clfield='GSIGW'   ;    READ(inum) clfield, gsigw
+         clfield='GSI3W'   ;    READ(inum) clfield, gsi3w
+         clfield='ESIGT'   ;    READ(inum) clfield, esigt
+         clfield='ESIGW'   ;    READ(inum) clfield, esigw
+      ENDIF
 #else
       clfield='GDEPT'   ;    READ(inum) clfield, gdept