Changeset 2132 for CONFIG/UNIFORM/v6/IPSLCM6/SOURCES

Timestamp:

07/30/13 15:28:14 (11 years ago)

Author:

omamce

Message:

O.M.

Quick and dirty (very dirty ...) patch to overcome the non allocation of fr*_i0.
See ticket #1139 on NEMO Trac for details.

A better solution is needed in the future.

File:

• CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/sbccpl.F90 (modified) (1 diff)

CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/sbccpl.F90

@@ -471 +471 @@
       ! Coupled case: since cloud cover is not received from atmosphere 
       !               ===> defined as constant value -> definition done in sbc_cpl_init
-      fr1_i0(:,:) = 0.18
-      fr2_i0(:,:) = 0.82
+      IF ( ALLOCATED (fr1_i0)) fr1_i0 (:,:) = 0.18
+      IF ( ALLOCATED (fr2_i0)) fr2_i0 (:,:) = 0.82
       !                                                      ! ------------------------- !
       !                                                      !      10m wind module      !