Changeset 3477 for trunk/LMDZ.PLUTO/libf/phypluto/condense_n2.F90

Timestamp:

Oct 24, 2024, 1:10:49 PM (4 weeks ago)

Author:

afalco

Message:

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

File:

• trunk/LMDZ.PLUTO/libf/phypluto/condense_n2.F90 (modified) (4 diffs)

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