Changeset 3477 for trunk

Timestamp:

Oct 24, 2024, 1:10:49 PM (2 months ago)

Author:

afalco

Message:

Pluto PCM: fixed some variables imports for 'libphy' compilation (to compile with DYNAMICO).
AF

Location:

trunk/LMDZ.PLUTO/libf/phypluto

Files:

• condense_n2.F90 (modified) (4 diffs)
• inifis_mod.F90 (modified) (1 diff)
• orbitetriton.F (modified) (1 diff)
• tabfi_mod.F90 (modified) (1 diff)

trunk/LMDZ.PLUTO/libf/phypluto/condense_n2.F90

@@ -12 +12 @@
   USE tracer_h, only: noms, igcm_n2, lw_n2
   USE callkeys_mod, only: fast,ch4lag,latlag,nbsub,no_n2frost,tsurfmax,kmixmin,source_haze,vmrlag
-  USE comvert_mod, ONLY: ap,bp
+  USE vertical_layers_mod, ONLY: ap,bp
   use geometry_mod, only: latitude
 
@@ -549 +549 @@
 
 !         Value transfert at the surface interface when condensation sublimation:
-          if (zmflux(1).lt.0) then 
+          if (zmflux(1).lt.0) then
 !               Surface condensation
                 zum(1)= zu(1)
-                zvm(1)= zv(1) 
+                zvm(1)= zv(1)
                 ztm(1) = ztc(1)
-          else 
+          else
 !               Surface sublimation:
                 ztm(1) = ztsrf(ig) + pdtsrfc(ig)*ptimestep
-                zum(1) = 0  
-                zvm(1) = 0  
+                zum(1) = 0
+                zvm(1) = 0
           end if
           do iq=1,nq
@@ -571 +571 @@
                 DO iq=1,nq
                  tname=noms(iq)
-                 if (tname(1:4).eq."haze") then 
+                 if (tname(1:4).eq."haze") then
                        !zqm(1,iq)=0.02
                        !zqm(1,iq)=-pdicen2(ig)*0.02
@@ -580 +580 @@
                  endif
                 ENDDO
-               ENDIF      
-          ENDIF      
+               ENDIF
+          ENDIF
           ztm(klev+1)= ztc(klev) ! should not be used, but...
           zum(klev+1)= zu(klev)  ! should not be used, but...

trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90

@@ -1462 +1462 @@
        call abort_physic(rname, 'if haze are on, tracers must be on!', 1)
      endif
+     if (haze_proffix.and.sedimentation) then
+         call abort_physic(rname, 'if haze profile is set, sedimentation must be deactivated', 1)
+     endif
      if (callmolvis.and..not.callconduct) then
          call abort_physic(rname, 'if callmolvis is set, callconduct must be true', 1)

trunk/LMDZ.PLUTO/libf/phypluto/orbitetriton.F

@@ -3 +3 @@
       use planete_mod, only: p_elips, e_elips, timeperi, obliquit
       use comcstfi_mod, only: pi
-      use comconst_mod, only: daysec
+      use time_phylmdz_mod, only: daysec
       IMPLICIT NONE
 

trunk/LMDZ.PLUTO/libf/phypluto/tabfi_mod.F90

@@ -132 +132 @@
         if (peri_day.eq.-999.) then
           call abort_physic(modname, &
-               "Missing value for periastron date in def files!",1)
+               "Missing value for periastron_day in def files!",1)
         endif
         obliquit=-999.