Changeset 558 for trunk/NEMO/OPA_SRC/DYN

Timestamp:

2006-10-27T17:17:48+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_070: SM+RB+GM: add nn_rstssh for hand made initilization of ssh or not (1/0)

Location:

trunk/NEMO/OPA_SRC/DYN

Files:

• dynspg_flt.F90 (modified) (1 diff)
• dynspg_ts.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90

@@ -391 +391 @@
            gcx (:,:) = 0.e0
            gcxb(:,:) = 0.e0
-           sshb(:,:) = 0.e0
-           sshn(:,:) = 0.e0
+           IF( nn_rstssh == 1 ) THEN  
+              sshb(:,:) = 0.e0
+              sshn(:,:) = 0.e0
+           ENDIF
         ENDIF
      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN

trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90

@@ -517 +517 @@
             IF( neuler == 0 ) sshb(:,:) = sshn(:,:)
          ELSE
-            sshb(:,:) = 0.e0
-            sshn(:,:) = 0.e0
+            IF( nn_rstssh == 1 ) THEN  
+               sshb(:,:) = 0.e0
+               sshn(:,:) = 0.e0
+            ENDIF
          ENDIF
          IF( iom_varid( numror, 'sshn_b' ) > 0 ) THEN