Changeset 2613 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN

Timestamp:

2011-02-25T11:45:57+01:00 (13 years ago)

Author:

gm

Message:

dynamic mem: #785 ; move the allocation of ice in iceini_2/iceini module + bug fixes (define key_esopa)

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90 (modified) (1 diff)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

@@ -72 +72 @@
       !!                  ***  routine dyn_spg_ts_alloc  ***
       !!----------------------------------------------------------------------
-      IMPLICIT none
-      INTEGER :: dyn_spg_ts_malloc
+      INTEGER ::   dyn_spg_ts_alloc   ! return value
       !!----------------------------------------------------------------------
-
+      !
       ALLOCATE(ftnw(jpi,jpj), ftne(jpi,jpj), ftsw(jpi,jpj), ftse(jpi,jpj), &
-               un_b(jpi,jpj), vn_b(jpi,jpj), ub_b(jpi,jpj), vb_b(jpi,jpj), &
-               Stat=dyn_spg_ts_malloc)
-
-   END FUNCTION dyn_spg_ts_malloc
+         &      un_b(jpi,jpj), vn_b(jpi,jpj), ub_b(jpi,jpj), vb_b(jpi,jpj), &
+         &      STAT=dyn_spg_ts_alloc)
+         !
+   END FUNCTION dyn_spg_ts_alloc