Changeset 2690 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90

Timestamp:

2011-03-15T16:27:46+01:00 (13 years ago)

Author:

gm

Message:

dynamic mem: #785 ; homogeneization of the coding style associated with dyn allocation

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90 (modified) (8 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90

@@ -210 +210 @@
       !!----------------------------------------------------------------------
 #if defined key_mpp_mpi
-      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY: zwork => wrk_1d_1
+      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released
+      USE wrk_nemo, ONLY:   zwork => wrk_1d_1
 #endif
       !!
@@ -265 +265 @@
       !
 #if defined key_mpp_mpi
-      IF(wrk_not_released(1, 1) )   CALL ctl_stop('ptr_vjk: ERROR - failed to release workspace array')
+      IF( wrk_not_released(1, 1) )   CALL ctl_stop('ptr_vjk: ERROR - failed to release workspace array')
 #endif
       !
@@ -282 +282 @@
       !!----------------------------------------------------------------------
 #if defined key_mpp_mpi
-      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY: zwork => wrk_1d_1
+      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released
+      USE wrk_nemo, ONLY:   zwork => wrk_1d_1
 #endif
       !!
@@ -299 +299 @@
       !
 #if defined key_mpp_mpi
-      IF(wrk_in_use(1, 1))THEN
-         CALL ctl_stop('ptr_tjk: requested workspace array unavailable.')
-         RETURN
-      END IF
+      IF( wrk_in_use(1, 1) ) THEN
+         CALL ctl_stop('ptr_tjk: requested workspace array unavailable')   ;   RETURN
+      ENDIF
 #endif
 
@@ -324 +323 @@
       !
 #if defined key_mpp_mpi
-      IF( wrk_not_released(1, 1) )   CALL ctl_stop('ptr_tjk: failed to release workspace array.')
+      IF( wrk_not_released(1, 1) )   CALL ctl_stop('ptr_tjk: failed to release workspace array')
 #endif
       !    
@@ -532 +531 @@
       !! ** Method  :   NetCDF file
       !!----------------------------------------------------------------------
-      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY: zphi => wrk_1d_1, zfoo => wrk_1d_2
-      USE wrk_nemo, ONLY: z_1  => wrk_2d_1
+      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released
+      USE wrk_nemo, ONLY:   zphi => wrk_1d_1, zfoo => wrk_1d_2    ! 1D workspace
+      USE wrk_nemo, ONLY:   z_1  => wrk_2d_1                      ! 2D      -
       !!
       INTEGER, INTENT(in) ::   kt   ! ocean time-step index
@@ -551 +550 @@
       !!----------------------------------------------------------------------
 
-      IF( wrk_in_use(1, 1,2) .OR. wrk_in_use(2, 1) )THEN
-         CALL ctl_stop('dia_ptr_wri: ERROR: requested workspace arrays unavailable')   ;   RETURN
-      END IF
+      IF( wrk_in_use(1, 1,2) .OR. wrk_in_use(2, 1) ) THEN
+         CALL ctl_stop('dia_ptr_wri: requested workspace arrays unavailable')   ;   RETURN
+      ENDIF
 
       ! define time axis
@@ -867 +866 @@
       ENDIF
       !
-      IF( wrk_not_released(1, 1,2) .OR. wrk_not_released(2, 1) )   &
-         CALL ctl_stop('dia_ptr_wri: failed to release workspace arrays')
+      IF( wrk_not_released(1, 1,2) .OR.    &
+          wrk_not_released(2, 1)    )   CALL ctl_stop('dia_ptr_wri: failed to release workspace arrays')
       !
   END SUBROUTINE dia_ptr_wri