Changeset 3733

Timestamp:

2012-12-12T17:06:16+01:00 (11 years ago)

Author:

gm

Message:

trunk: #1038 : zdfkpp correct a bug of compilation in KPP physics

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90 (modified) (4 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90

@@ -247 +247 @@
 #if defined key_zdfddm
       REAL(wp) ::   zrrau, zds, zavdds, zavddt,zinr   ! double diffusion mixing
-      REAL(wp), POINTER, DIMENSION(:,:) ::     zdifs
-      REAL(wp), POINTER, DIMENSION(:)   ::   za2s, za3s, zkmps
+      REAL(wp), POINTER, DIMENSION(:,:)   ::     zdifs
+      REAL(wp), POINTER, DIMENSION(:)     ::   za2s, za3s, zkmps
       REAL(wp) ::                            zkm1s
-      REAL(wp), POINTER, DIMENSION(:,:) ::   zblcs
+      REAL(wp), POINTER, DIMENSION(:,:)   ::   zblcs
       REAL(wp), POINTER, DIMENSION(:,:,:) ::   zdiffus
 #endif
@@ -266 +266 @@
       CALL wrk_alloc( jpi,4, zdepw, zdift, zvisc )
       CALL wrk_alloc( jpi,jpj, zBo, zBosol, zustar )
-      CALL wrk_alloc( jpi,jpk, zmask, zblcm, zblct, zblcs )
+      CALL wrk_alloc( jpi,jpk, zmask, zblcm, zblct )
 #if defined key_zdfddm
       CALL wrk_alloc( jpi,4, zdifs )
@@ -1079 +1079 @@
                zdiffut(ji,jj,jk) = zdiffut(ji,jj,jk) * tmask(ji,jj,jk) 
 #if defined key_zdfddm
-               zdiffus(ji,jj,jk) = ( 1.0 - zmask(ji,jk) )          * avs (ji,jj,jk) & ! interior diffusivities 
+               zdiffus(ji,jj,jk) = ( 1.0 - zmask(ji,jk) )         * avs (ji,jj,jk) & ! interior diffusivities 
                   &              +                        zflag   * zblcs(ji,jk   ) & ! boundary layer diffusivities
                   &              + zmask(ji,jk) * ( 1.0 - zflag ) * zkmps(ji      )   ! diffusivity enhancement at W_level near zhbl
-                       
                zdiffus(ji,jj,jk) = zdiffus(ji,jj,jk) * tmask(ji,jj,jk) 
 #endif               
@@ -1210 +1209 @@
       CALL wrk_dealloc( jpi,4, zdepw, zdift, zvisc )
       CALL wrk_dealloc( jpi,jpj, zBo, zBosol, zustar )
-      CALL wrk_dealloc( jpi,jpk, zmask, zblcm, zblct, zblcs )
+      CALL wrk_dealloc( jpi,jpk, zmask, zblcm, zblct )
 #if defined key_zdfddm
       CALL wrk_dealloc( jpi,4, zdifs )