Changeset 3404 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Oct 19, 2018, 6:44:14 PM (6 years ago)
Author:
oboucher
Message:

Bounding years for MAC plume aerosol model to prevent any problem
As identified by Adriana

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3296 r3404  
    8080  !
    8181  year_fr = FLOAT(year_cur) + (FLOAT(day_cur)-0.5) / FLOAT(year_len)
    82   print *,'year_fr=',year_fr
     82  IF (year_fr.LT.1850.0.OR.year_fr.GE.2017.0) THEN
     83     CALL abort_physic ('macv2sp','year not supported by plume model',1)
     84  ENDIF
    8385  !
    8486  !--call to sp routine -- 443 nm
Note: See TracChangeset for help on using the changeset viewer.