Changeset 1763 for trunk


Ignore:
Timestamp:
Aug 7, 2017, 3:16:51 PM (7 years ago)
Author:
jvatant
Message:

Fixed a bug in phyetat0_mod : typo leading to uninitialized field sea_ice
JVO

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/phyetat0_mod.F90

    r1709 r1763  
    343343  if (.not.found) then
    344344    write(*,*) "phyetat0: Failed loading <sea_ice>"
    345     tsea_ice(1:ngrid)=0.
    346   endif
    347 else
    348   tsea_ice(1:ngrid)=0.
     345    sea_ice(1:ngrid)=0.
     346  endif
     347else
     348  sea_ice(1:ngrid)=0.
    349349endif ! of if (startphy_file)
    350350write(*,*) "phyetat0: Oceanic ice quantity <sea_ice> range:", &
Note: See TracChangeset for help on using the changeset viewer.