Changeset 216 for trunk/NEMO/OPA_SRC/DOM/domain.F90

Timestamp:

2005-03-17T15:02:38+01:00 (19 years ago)

Author:

opalod

Message:

CT : UPDATE151 : New trends organization

File:

• trunk/NEMO/OPA_SRC/DOM/domain.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DOM/domain.F90

@@ -100 +100 @@
          hv(:,:) = hv(:,:) + fse3v(:,:,jk) * vmask(:,:,jk)
       END DO
-#elif defined key_dynspg_rl
+# if defined key_trdvor
       ! Inverse of the local depth
       hur(:,:) = fse3u(:,:,1)             ! Lower bound : thickness of the first model level
@@ -113 +113 @@
       hur(:,:) = 1. / hur(:,:) * umask(:,:,1)
       hvr(:,:) = 1. / hvr(:,:) * vmask(:,:,1)
-#endif
-#if defined key_trd_vor
+# endif
+
+#elif defined key_dynspg_rl
       ! Inverse of the local depth
       hur(:,:) = fse3u(:,:,1)             ! Lower bound : thickness of the first model level