Changeset 3025 for trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars
- Timestamp:
- Aug 7, 2023, 6:02:51 AM (17 months ago)
- Location:
- trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/lect_start_archive.F
r2999 r3025 1 MODULE lect_start_archive_mod 2 3 IMPLICIT NONE 4 5 CONTAINS 6 1 7 SUBROUTINE lect_start_archive(ngrid,nlayer,nqtot, 2 8 & date,tsurf,tsoil,inertiesoil,albedo,emis,q2, … … 1277 1283 & watercap(:,1)) 1278 1284 1279 c Watercap1285 c Perenial CO2 ice cap 1280 1286 call interp_horiz (peren_co2iceold(:,:,1),peren_co2iceS(:,:,1), 1281 1287 & imold,jmold,iim,jjm,1,rlonuold,rlatvold,rlonu,rlatv) … … 1686 1692 1687 1693 ! write(*,*)'lect_start_archive: END' 1688 return 1689 end 1694 1695 END SUBROUTINE lect_start_archive 1696 1697 END MODULE lect_start_archive_mod -
trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/newstart.F
r2999 r3025 37 37 use control_mod, only: day_step, iphysiq, anneeref, planet_type 38 38 use geometry_mod, only: longitude,latitude,cell_area 39 use lect_start_archive_mod, only: lect_start_archive 39 40 use phyetat0_mod, only: phyetat0 40 41 use phyredem, only: physdem0, physdem1 … … 444 445 & date,tsurf,tsoil,inertiesoil,albedo,emis,q2, 445 446 & t,ucov,vcov,ps,teta,phisold_newgrid,q,qsurf, 446 & tauscaling,totcloudfrac,surfith,nid,watercap )447 & tauscaling,totcloudfrac,surfith,nid,watercap,perenial_co2ice) 447 448 write(*,*) "OK, read start_archive file" 448 449 ! copy soil thermal inertia
Note: See TracChangeset
for help on using the changeset viewer.