Changeset 5648


Ignore:
Timestamp:
May 12, 2025, 11:14:58 AM (4 weeks ago)
Author:
amaison
Message:

correction of optional arguments for heterogeneous continental sub-surfaces

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/dimphy.f90

    r5627 r5648  
    6464    klevm1=klev-1
    6565    kflev=klev
    66     nbtersrf=nbtersrf0
    67     nbtsoildepths=nbtsoildepths0
     66
     67    IF (PRESENT(nbtersrf0)) THEN
     68      nbtersrf=nbtersrf0
     69    ELSE
     70      nbtersrf = 0
     71    ENDIF
     72    IF (PRESENT(nbtsoildepths0)) THEN
     73      nbtsoildepths=nbtsoildepths0
     74    ELSE
     75      nbtsoildepths = 0
     76    ENDIF
    6877
    6978  END SUBROUTINE Init_dimphy1D
Note: See TracChangeset for help on using the changeset viewer.