Changeset 3216 for trunk/LMDZ.MARS


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

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

Location:
trunk/LMDZ.MARS
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/changelog.txt

    r3213 r3216  
    44904490== 12/02/2024 == JBC
    44914491Correction of a bug in "writediagsoil.F90": the case of using the 1D model with parallelization was not anticipated so that the "diagsoil.nc" file was filled with meaningless data.
     4492
     4493== 13/02/2024 == EM
     4494Fix start2archive; routine surfini is now in module surfini_mod.

  • 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.