Ignore:
Timestamp:
07/30/13 15:28:14 (8 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:
1 edited

Legend:

Unmodified
Added
Removed
  • CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/sbccpl.F90

    r2128 r2132  
    471471      ! Coupled case: since cloud cover is not received from atmosphere  
    472472      !               ===> defined as constant value -> definition done in sbc_cpl_init 
    473       fr1_i0(:,:) = 0.18 
    474       fr2_i0(:,:) = 0.82 
     473      IF ( ALLOCATED (fr1_i0)) fr1_i0 (:,:) = 0.18 
     474      IF ( ALLOCATED (fr2_i0)) fr2_i0 (:,:) = 0.82 
    475475      !                                                      ! ------------------------- ! 
    476476      !                                                      !      10m wind module      !    
Note: See TracChangeset for help on using the changeset viewer.