Changeset 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

Timestamp:

2011-03-30T17:58:35+02:00 (13 years ago)

Author:

rblod

Message:

First attempt to put dynamic allocation on the trunk

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90 (modified) (5 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

@@ -39 +39 @@
    USE obs_types                ! Definitions for observation types
    USE mpp_map                  ! MPP mapping
+   USE lib_mpp                  ! For ctl_warn/stop
 
    IMPLICIT NONE
@@ -1026 +1027 @@
          & frld
 #endif
-
+      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
+#if ! defined key_ice_lim
+      USE wrk_nemo, ONLY: frld => wrk_2d_1
+#endif
       IMPLICIT NONE
 
@@ -1032 +1036 @@
       INTEGER, INTENT(IN) :: kstp                         ! Current timestep
       !! * Local declarations
-#if ! defined key_ice_lim
-      REAL(wp), DIMENSION(jpi,jpj) :: frld
-#endif
       INTEGER :: idaystp                ! Number of timesteps per day
       INTEGER :: jprofset               ! Profile data set loop variable
@@ -1044 +1045 @@
       CHARACTER(LEN=20) :: datestr=" ",timestr=" "
  
+#if ! defined key_ice_lim
+      IF(wrk_in_use(2, 1))THEN
+         CALL ctl_stop('dia_obs : requested workspace array unavailable.')
+         RETURN
+      END IF
+#endif
+
       IF(lwp) THEN
          WRITE(numout,*)
@@ -1121 +1129 @@
       ENDIF
 
+#if ! defined key_ice_lim
+      IF(wrk_not_released(2, 1))THEN
+         CALL ctl_stop('dia_obs : failed to release workspace array.')
+      END IF
+#endif
+
    END SUBROUTINE dia_obs