Changeset 4294 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/CRS/crsdomwri.F90

Timestamp:

2013-11-20T18:04:09+01:00 (10 years ago)

Author:

cetlod

Message:

dev_MERGE_2013 : changes to improve compilation

File:

• branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/CRS/crsdomwri.F90 (modified) (3 diffs)

branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/CRS/crsdomwri.F90

@@ -238 +238 @@
             DO jj = 1,jpj_crs   
                DO ji = 1,jpi_crs
-                  zprt(ji,jj) = gdept(ji,jj,mbkt(ji,jj)  ) * tmask(ji,jj,1)
-                  zprw(ji,jj) = gdepw(ji,jj,mbkt(ji,jj)+1) * tmask(ji,jj,1)
+                  zprt(ji,jj) = gdept_0(ji,jj,mbkt(ji,jj)  ) * tmask(ji,jj,1)
+                  zprw(ji,jj) = gdepw_0(ji,jj,mbkt(ji,jj)+1) * tmask(ji,jj,1)
                END DO
             END DO
@@ -246 +246 @@
          ENDIF
 
-         CALL iom_rstput( 0, 0, inum4, 'gdept_0', gdept_0 )     !    ! reference z-coord.
-         CALL iom_rstput( 0, 0, inum4, 'gdepw_0', gdepw_0 )
-         CALL iom_rstput( 0, 0, inum4, 'e3t_0'  , e3t_0   )
-         CALL iom_rstput( 0, 0, inum4, 'e3w_0'  , e3w_0   )
+         CALL iom_rstput( 0, 0, inum4, 'gdept_1d', gdept_1d )     !    ! reference z-coord.
+         CALL iom_rstput( 0, 0, inum4, 'gdepw_1d', gdepw_1d )
+         CALL iom_rstput( 0, 0, inum4, 'e3t_1d'  , e3t_1d   )
+         CALL iom_rstput( 0, 0, inum4, 'e3w_1d'  , e3w_1d   )
 
          CALL iom_rstput(  0, 0, inum4, 'ocean_volume_t', ocean_volume_crs_t ) 
@@ -273 +273 @@
      IF( ln_zco ) THEN
          !                                                      ! z-coordinate - full steps
-        CALL iom_rstput( 0, 0, inum4, 'gdept_0', gdept_0 )     !    ! depth
-        CALL iom_rstput( 0, 0, inum4, 'gdepw_0', gdepw_0 )
-        CALL iom_rstput( 0, 0, inum4, 'e3t_0'  , e3t_0   )     !    ! scale factors
-        CALL iom_rstput( 0, 0, inum4, 'e3w_0'  , e3w_0   )
+        CALL iom_rstput( 0, 0, inum4, 'gdept_1d', gdept_1d )     !    ! depth
+        CALL iom_rstput( 0, 0, inum4, 'gdepw_1d', gdepw_1d )
+        CALL iom_rstput( 0, 0, inum4, 'e3t_1d'  , e3t_1d   )     !    ! scale factors
+        CALL iom_rstput( 0, 0, inum4, 'e3w_1d'  , e3w_1d   )
      ENDIF
       !                                     ! ============================