Changeset 450 for trunk/NEMO

Timestamp:

2006-04-28T14:24:20+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_042:RB: - initialization of bathy_level for partial steps

• set eiv coeff. to 0 when aeiv0 = 0

Location:

trunk/NEMO/OPA_SRC

Files:

• DOM/domzgr.F90 (modified) (1 diff)
• LDF/ldfeiv.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DOM/domzgr.F90

@@ -442 +442 @@
                              itime, 1, 1, 1, jpidta, 1, jpjdta, zdta(:,:) ) 
                CALL flinclo( inum )
+               idta(:,:) = jpkm1      ! initialisation
             ELSE
                IF(lwp) WRITE(numout,cform_err)       

trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90

@@ -186 +186 @@
             CALL prt_ctl(tab2d_1=ahtw, clinfo1=' aht  - w: ', ovlap=1)
          ENDIF
+      ENDIF
+
+      IF( aeiv0 == 0.e0 ) THEN
+         aeiu(:,:) = 0.e0
+         aeiv(:,:) = 0.e0
+         aeiw(:,:) = 0.e0
       ENDIF
 
@@ -354 +360 @@
          ENDIF
       ENDIF
+      
+      IF( aeiv0 == 0.e0 ) THEN
+         aeiu(:,:) = 0.e0
+         aeiv(:,:) = 0.e0
+         aeiw(:,:) = 0.e0
+      ENDIF
 
    END SUBROUTINE ldf_eiv