Changeset 4224


Ignore:
Timestamp:
Jul 21, 2022, 11:59:04 AM (23 months ago)
Author:
acozic
Message:

io_lon and io_lat not exist in unstructured grid - modify inca call to take this in account

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4170 r4224  
    20352035               longitude, latitude, &
    20362036               boundslon, boundslat, &
    2037                dx, dy, cell_area, ind_cell_glo)
    2038 
    2039 
    2040           CALL chemini(  pplay, &
    2041                nbp_lon, nbp_lat, &
    2042                latitude_deg, &
    2043                longitude_deg, &
    2044                presnivs, &
    2045                calday, &
    2046                klon, &
    2047                nqtot, &
    2048                nqo+nqCO2, &
    2049                pdtphys, &
    2050                annee_ref, &
    2051                year_cur, &
    2052                day_ref,  &
    2053                day_ini, &
    2054                start_time, &
    2055                itau_phy, &
    2056                date0, &
    2057                io_lon, &
    2058                io_lat, &
    2059                chemistry_couple, &
    2060                init_source, &
    2061                init_tauinca, &
    2062                init_pizinca, &
    2063                init_cginca, &
    2064                init_ccminca)
     2037               cell_area, ind_cell_glo)
     2038
     2039          if (grid_type==unstructured) THEN
     2040             CALL chemini(  pplay, &
     2041                  nbp_lon, nbp_lat, &
     2042                  latitude_deg, &
     2043                  longitude_deg, &
     2044                  presnivs, &
     2045                  calday, &
     2046                  klon, &
     2047                  nqtot, &
     2048                  nqo+nqCO2, &
     2049                  pdtphys, &
     2050                  annee_ref, &
     2051                  year_cur, &
     2052                  day_ref,  &
     2053                  day_ini, &
     2054                  start_time, &
     2055                  itau_phy, &
     2056                  date0, &
     2057                  chemistry_couple, &
     2058                  init_source, &
     2059                  init_tauinca, &
     2060                  init_pizinca, &
     2061                  init_cginca, &
     2062                  init_ccminca)
     2063          ELSE
     2064             CALL chemini(  pplay, &
     2065                  nbp_lon, nbp_lat, &
     2066                  latitude_deg, &
     2067                  longitude_deg, &
     2068                  presnivs, &
     2069                  calday, &
     2070                  klon, &
     2071                  nqtot, &
     2072                  nqo+nqCO2, &
     2073                  pdtphys, &
     2074                  annee_ref, &
     2075                  year_cur, &
     2076                  day_ref,  &
     2077                  day_ini, &
     2078                  start_time, &
     2079                  itau_phy, &
     2080                  date0, &
     2081                  chemistry_couple, &
     2082                  init_source, &
     2083                  init_tauinca, &
     2084                  init_pizinca, &
     2085                  init_cginca, &
     2086                  init_ccminca, &
     2087                  io_lon, &
     2088                  io_lat)
     2089          ENDIF
    20652090
    20662091
Note: See TracChangeset for help on using the changeset viewer.