Changeset 3933 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Jun 11, 2021, 10:59:03 PM (3 years ago)
Author:
oboucher
Message:

co2_send should be saved in phyredem for the correct type_trac
This should solve the 1+1=2 problem for the interactive CO2 config

Location:
LMDZ6/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/phyetat0.F90

    r3890 r3933  
    455455  ENDIF
    456456
    457 !--OB now this is for co2i - ThL: and therefore also for inco
    458457  IF (type_trac == 'co2i' .OR. type_trac == 'inco') THEN
    459458     IF (carbon_cycle_cpl) THEN

  • LMDZ6/trunk/libf/phylmd/phyredem.F90

    r3890 r3933  
    326326          CALL put_field(pass,"trs_"//tname(iiq), "", trs(:, it))
    327327       END DO
     328    END IF
     329
     330    IF (type_trac == 'co2i' .OR. type_trac == 'inco') THEN
    328331       IF (carbon_cycle_cpl) THEN
    329332          IF (.NOT. ALLOCATED(co2_send)) THEN
Note: See TracChangeset for help on using the changeset viewer.