Ignore:
Timestamp:
Mar 23, 2021, 4:14:07 PM (4 years ago)
Author:
lmdz-users
Message:

Modifications from Thibaut to create an ESM with interactive CO2 + INCA aerosols

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

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3dmem/dynredem_loc.F90

    r3803 r3865  
    242242!$OMP MASTER
    243243  fil="start_trac.nc"
    244   IF(type_trac=='inca') INQUIRE(FILE=fil,EXIST=lread_inca)
     244  IF(type_trac=='inca' .OR. type_trac=='inco') INQUIRE(FILE=fil,EXIST=lread_inca)
    245245  IF(lread_inca) CALL err(NF90_OPEN(fil,NF90_NOWRITE,nid_trac),"open")
    246246!$OMP END MASTER

  • LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.F

    r3666 r3865  
    15391539
    15401540#ifdef INCA
    1541          if (type_trac == 'inca') then
     1541         if (type_trac == 'inca' .OR. type_trac == 'inco') then
    15421542            call finalize_inca
    15431543         endif
    … …  
    15941594
    15951595#ifdef INCA
    1596               if (type_trac == 'inca') then
     1596              if (type_trac == 'inca' .OR. type_trac == 'inco') then
    15971597                 call finalize_inca
    15981598              endif
    … …  
    17501750
    17511751#ifdef INCA
    1752                  if (type_trac == 'inca') then
     1752                 if (type_trac == 'inca' .OR. type_trac == 'inco') then
    17531753                    call finalize_inca
    17541754                 endif
    … …  
    18451845
    18461846#ifdef INCA
    1847       if (type_trac == 'inca') then
     1847      if (type_trac == 'inca' .OR. type_trac == 'inco') then
    18481848         call finalize_inca
    18491849      endif
Note: See TracChangeset for help on using the changeset viewer.