Changeset 2613 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90

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/ZDF/zdfkpp.F90 (modified) (3 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90

@@ -225 +225 @@
                           zustar => wrk_2d_3
       USE wrk_nemo, ONLY: zmask  => wrk_2d_4
-      USE wrk_nemo, ONLY: wrk_2d_5, wrk_2d_6, wrk_2d_7, wrk_2d_8, wrk_2d_9, &
+!gm      USE wrk_nemo, ONLY: wrk_2d_5, wrk_2d_6, wrk_2d_7, wrk_2d_8, wrk_2d_9, &
+      USE wrk_nemo, ONLY:           wrk_2d_6, wrk_2d_7, wrk_2d_8, wrk_2d_9, &
                           wrk_2d_10,wrk_2d_11
       USE wrk_nemo, ONLY: wrk_1d_1,  wrk_1d_2,  wrk_1d_3,  wrk_1d_4,  &
@@ -260 +261 @@
       REAL(wp) ::   zflag, ztemp, zrn2, zdep21, zdep32, zdep43
       REAL(wp) ::   zdku2, zdkv2, ze3sqr, zsh2, zri, zfri          ! Interior richardson mixing
-      REAL(wp), POINTER, DIMENSION(:,:) ::   zmoek                 ! Moning-Obukov limitation
+!gm      REAL(wp), POINTER, DIMENSION(:,:) ::   zmoek                 ! Moning-Obukov limitation
+      REAL(wp), DIMENSION(jpi,0:2) ::   zmoek                 ! Moning-Obukov limitation
       REAL(wp), POINTER, DIMENSION(:)   ::   zmoa, zekman                
       REAL(wp)                          ::   zmob, zek
@@ -285 +287 @@
       END IF
       ! Set-up pointers to 2D spaces
-      zmoek(1:jpi,0:2) => wrk_2d_5(1:jpi,1:3)
+!gm      zmoek(1:jpi,0:2) => wrk_2d_5(1:jpi,1:3)
       zdepw => wrk_2d_6(:,1:4)
       zdift => wrk_2d_7(:,1:4)