Changeset 3432 for branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90

Timestamp:

2012-07-11T13:22:58+02:00 (12 years ago)

Author:

trackstand2

Message:

Merge branch 'ksection_partition'

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90 (modified) (2 diffs)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90

@@ -57 +57 @@
 
 # if defined key_lim3
-   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   tatm_ice    !: air temperature
+   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   tatm_ice  !: air temperature
 # endif
 
@@ -77 +77 @@
          &      utau_ice(jpi,jpj)     , vtau_ice(jpi,jpj)     ,     &
          &      fr1_i0  (jpi,jpj)     , fr2_i0  (jpi,jpj)     ,     &
+# if defined key_lim3
+         &      emp_ice(jpi,jpj)      , tatm_ice(jpi,jpj)     , STAT= sbc_ice_alloc )
+# else
          &      emp_ice(jpi,jpj)                              , STAT= sbc_ice_alloc )
+# endif
          !
       IF( lk_mpp            )   CALL mpp_sum ( sbc_ice_alloc )