Changeset 7485 for branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/DOM/depth_e3.F90

Timestamp:

2016-12-12T09:33:37+01:00 (7 years ago)

Author:

cetlod

Message:

Remove CPP key key_offline and replace it with a logical l_offline

File:

• branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/DOM/depth_e3.F90 (modified) (2 diffs)

branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/DOM/depth_e3.F90

@@ -126 +126 @@
       INTEGER  ::   jk           ! dummy loop indices
       !!----------------------------------------------------------------------
-      !
-      pdepw_1d(1) = 0.0_wp
+      !
+      pdepw_1d(1) = 0.0_wp
       pdept_1d(1) = 0.5_wp * pe3w_1d(1)
-      DO jk = 2, jpk
+      DO jk = 2, jpk
          pdepw_1d(jk) = pdepw_1d(jk-1) + pe3t_1d(jk-1) 
          pdept_1d(jk) = pdept_1d(jk-1) + pe3w_1d(jk  ) 
@@ -152 +152 @@
       INTEGER  ::   jk           ! dummy loop indices
       !!----------------------------------------------------------------------      
-      !
-      pdepw_3d(:,:,1) = 0.0_wp
+      !
+      pdepw_3d(:,:,1) = 0.0_wp
       pdept_3d(:,:,1) = 0.5_wp * pe3w_3d(:,:,1)
-      DO jk = 2, jpk
+      DO jk = 2, jpk
          pdepw_3d(:,:,jk) = pdepw_3d(:,:,jk-1) + pe3t_3d(:,:,jk-1) 
          pdept_3d(:,:,jk) = pdept_3d(:,:,jk-1) + pe3w_3d(:,:,jk  )