Changeset 2690 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/dom_ice_2.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/LIM_SRC_2/dom_ice_2.F90 (modified) (1 diff)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/dom_ice_2.F90

@@ -51 +51 @@
       ierr(:) = 0
       !
-      ALLOCATE( fs2cor(jpi,jpj),  fcor(jpi,jpj),                             &
-         &      covrai(jpi,jpj),  area(jpi,jpj), tms(jpi,jpj), tmu(jpi,jpj), &
-         &      wght(jpi,jpj,2,2),  Stat=ierr(1) )
+      ALLOCATE( fs2cor(jpi,jpj)     , fcor(jpi,jpj) ,                                   &
+         &      covrai(jpi,jpj)     , area(jpi,jpj) , tms(jpi,jpj) , tmu(jpi,jpj) ,     &
+         &      wght  (jpi,jpj,2,2)                                               , STAT=ierr(1) )
          !
-      ALLOCATE(                                                              &
+      ALLOCATE(                                                    &
 #if defined key_lim2_vp 
-         &        akappa(jpi,jpj,2,2), bkappa(jpi,jpj,2,2),                  &
-         &        alambd(jpi,jpj,2,2,2,2),                                   &
+         &        akappa(jpi,jpj,2,2)     , bkappa(jpi,jpj,2,2),   &
+         &        alambd(jpi,jpj,2,2,2,2) ,                        &
 #else
-         &        tmv(jpi,jpj), tmf(jpi,jpj), tmi(jpi,jpj),                  &
+         &        tmv(jpi,jpj) , tmf(jpi,jpj) , tmi(jpi,jpj) ,     &
 #endif
-         &        Stat=ierr(2) )
+         &        STAT=ierr(2) )
          !
       dom_ice_alloc_2 = MAXVAL(ierr)