Changeset 4927


Ignore:
Timestamp:
May 2, 2024, 5:10:31 PM (7 months ago)
Author:
musat
Message:

Initialisation by the "default" value of isnan fields
IonelaMusat?

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4367 r4927  
    6464  DO i = 1, SIZE(name)
    6565    CALL get_field(TRIM(name(i)), field, lFound)
     66    IF(isnan(field(1,1))) THEN
     67      field(:,:) = default
     68    ENDIF
    6669    IF(lFound) EXIT
    6770    WRITE(lunout,*) "phyetat0: Missing field <",TRIM(name(i)),"> "
Note: See TracChangeset for help on using the changeset viewer.