Changeset 454 for trunk/NEMO/OPA_SRC/DOM/dommsk.F90

Timestamp:

2006-05-10T18:47:31+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_047:RB: re-organization of coordinate definition, scale factors are now 3d by default, include file for partial steps has been removed

File:

• trunk/NEMO/OPA_SRC/DOM/dommsk.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/DOM/dommsk.F90

@@ -123 +123 @@
       !!   9.0  !  05-11  (V. Garnier) Surface pressure gradient organization
       !!----------------------------------------------------------------------
-      !! *Local declarations
-      INTEGER  ::   ji, jj, jk, ii     ! dummy loop indices
-      INTEGER  ::   iif, iil, ijf, ijl
-      INTEGER  ::   ii0, ii1, ij0, ij1
+      INTEGER  ::   ji, jj, jk      ! dummy loop indices
+      INTEGER  ::   iif, iil, ii0, ii1, ii
+      INTEGER  ::   ijf, ijl, ij0, ij1
       INTEGER, DIMENSION(jpi,jpj) ::  imsk
-
       REAL(wp), DIMENSION(jpi,jpj) ::   zwf
 
@@ -134 +132 @@
       !!---------------------------------------------------------------------
       
-
       ! Namelist namlbc : lateral momentum boundary condition
       REWIND( numnam )
@@ -500 +497 @@
       !!        !  00-03  (G. Madec)  no slip accurate
       !!----------------------------------------------------------------------
-      !! *Local declarations
-      INTEGER  :: ji, jj, jk, ii, jl ! dummy loop indices
-      INTEGER ::   ine, inw, ins, inn, itest, ierror, iind, ijnd
+      INTEGER  :: ji, jj, jk, jl      ! dummy loop indices
+      INTEGER ::   ine, inw, ins, inn, itest, ierror, iind, ijnd, ii
       INTEGER, DIMENSION(jpi*jpj*jpk,3) ::  icoord
       REAL(wp) ::   zaa
-      !!---------------------------------------------------------------------
-      !!  OPA 9.0 , LOCEAN-IPSL (2005)
       !!---------------------------------------------------------------------