Ignore:
Timestamp:
Feb 13, 2024, 5:47:16 PM (11 months ago)
Author:
emillour
Message:

Mars PCM:
Fix start2archive; routine surfini is now in module surfini_mod.
EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/start2archive.F

    r3139 r3216  
    3737     &                        subslope_dist
    3838      USE comcstfi_h, only: pi
     39      use surfini_mod, only: surfini
    3940      implicit none
    4041
    … …  
    213214       ENDIF
    214215
    215          CALL surfini(ngridmx,qsurf)
     216         CALL surfini(ngridmx,nslope,qsurf)
    216217
    217218      ierr = NF_CLOSE(nid1)
Note: See TracChangeset for help on using the changeset viewer.