Changeset 3422 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Dec 8, 2018, 7:52:56 PM (6 years ago)
Author:
oboucher
Message:

Changing initialisation of co2_send if not found in restart.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/phyetat0.F90

    r3421 r3422  
    442442        ALLOCATE(co2_send(klon), stat=ierr)
    443443        IF (ierr /= 0) CALL abort_physic('phyetat0', 'pb allocation co2_send', 1)
    444         found=phyetat0_get(1,co2_send,"co2_send","co2 send",0.)
     444        found=phyetat0_get(1,co2_send,"co2_send","co2 send",co2_ppm)
    445445     END IF
    446446  END IF
Note: See TracChangeset for help on using the changeset viewer.