Changeset 526 for trunk/NEMO/OPA_SRC

Timestamp:

2006-10-12T16:29:17+02:00 (18 years ago)

Author:

opalod

Message:

RB:nemo_v1_bugfix_061: correct meshmask writing for s_coordinate

File:

• trunk/NEMO/OPA_SRC/DOM/domwri.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DOM/domwri.F90

@@ -219 +219 @@
             CALL restput( inum4, 'e3w', jpi, jpj, jpk, 0, e3w )
 
-            CALL restput( inum4, 'gdept_0' , jpi, jpj, jpk, 0, gdept_0 )  !    ! stretched system
-            CALL restput( inum4, 'gdepw_0' , jpi, jpj, jpk, 0, gdepw_0 )
+            CALL restput( inum4, 'gdept_0' , 1, 1, jpk, 0, gdept_0 )  !    ! stretched system
+            CALL restput( inum4, 'gdepw_0' , 1, 1, jpk, 0, gdepw_0 )
          ENDIF