Changeset 5397


Ignore:
Timestamp:
2018-09-13T11:04:07+02:00 (4 years ago)
Author:
josefine.ghattas
Message:

Integrated changset [5396] done on the trunk. This is needed for ESM carbon configuration. P. Cadule

File:
1 edited

Legend:

Unmodified
Added
Removed
  • tags/ORCHIDEE_2_0/ORCHIDEE/src_sechiba/intersurf.f90

    r5391 r5397  
    14371437       ! CASE("...") 
    14381438          ! Things to do for this case... 
     1439       CASE("atmco2") 
     1440          IF (printlev_loc > 4) WRITE(numout,*) & 
     1441               'Retreive the atmco2 field, in this case equal to fields_out(:,i)=ccanopy(:)' 
    14391442       CASE DEFAULT  
    14401443          CALL ipslerr_p (3,'intersurf_main_gathered', & 
Note: See TracChangeset for help on using the changeset viewer.