Changeset 3412 for trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto

Timestamp:

Aug 21, 2024, 3:46:54 PM (6 months ago)

Author:

afalco

Message:

Pluto PCM: Imported glaciers & conserv mass routines from pluto.old.
AF

Location:

trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto

Files:

• leapfrog_nogcm.F (modified) (1 diff)
• nogcm.F90 (modified) (1 diff)

trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto/leapfrog_nogcm.F

@@ -540 +540 @@
 !         print*,''
 
-
          CALL calfis( lafin , jD_cur, jH_cur,
      $               ucov,vcov,teta,q,masse,ps,p,pk,phis,phi ,

trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto/nogcm.F90

@@ -515 +515 @@
   !       write(78,*) 'q',q
 
-
   CALL leapfrog_nogcm(ucov,vcov,teta,ps,masse,phis,q,time_0)