Changeset 3422 for trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90

Timestamp:

Aug 26, 2024, 6:11:23 PM (3 months ago)

Author:

afalco

Message:

Pluto PCM: no gcm works in parallel. example restart.def for old-to-new pluto start files.
AF

File:

• trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90 (modified) (5 diffs)

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

@@ -2287 +2287 @@
 
 !       ! Oceanic layers !AF24: removed
-
       ! ! Thermal plume model  !AF24: removed
-
 !        GW non-oro outputs  !AF24: removed
 
@@ -2309 +2307 @@
 !           call writediagfi(ngrid,"fluxsurflwcs","lw back radiation (cs).","W m-2",2,fluxsurf_lw1)
 
-         ! if(ok_slab_ocean) then
-         !    call writediagfi(ngrid,"GND","heat flux from ground","W m-2",2,fluxgrdocean)
-         ! else
          call writediagfi(ngrid,"GND","heat flux from ground","W m-2",2,fluxgrd)
          ! endif
@@ -2366 +2361 @@
         call writediagfi(ngrid,"zdtlw","LW heating","T s-1",3,zdtlw)
         call writediagfi(ngrid,"dtrad","radiative heating","K s-1",3,dtrad)
-      ! call writediagfi(ngrid,"zdtdyn","Dyn. heating","T s-1",3,zdtdyn)
+        call writediagfi(ngrid,"zdtdyn","Dyn. heating","T s-1",3,zdtdyn)
 
         !Pluto specific
@@ -2396 +2391 @@
          do iq=1,nq
           call writediagfi(ngrid,noms(iq),noms(iq),'kg/kg',3,zq(1,1,iq))
-          !  call writediagfi(ngrid,trim(noms(iq))//'_surf',trim(noms(iq))//'_surf',  &
-          !                   'kg m^-2',2,qsurf_hist(1,iq) )
+         !   call writediagfi(ngrid,trim(noms(iq))//'_surf',trim(noms(iq))//'_surf',  &
+         !                    'kg m^-2',2,qsurf_hist(1,iq) )
            call writediagfi(ngrid,trim(noms(iq))//'_col',trim(noms(iq))//'_col',    &
                            'kg m^-2',2,qcol(1,iq) )
-!          call writediagfi(ngrid,trim(noms(iq))//'_surf',trim(noms(iq))//'_surf',  &
-!                          'kg m^-2',2,qsurf(1,iq) )
+         call writediagfi(ngrid,trim(noms(iq))//'_surf',trim(noms(iq))//'_surf',  &
+                         'kg m^-2',2,qsurf(1,iq) )
 
             ! if(watercond.or.CLFvarying)then  !AF24: removed
@@ -2419 +2414 @@
 
          !Pluto specific
-         !call writediagfi(ngrid,'n2_iceflux','n2_iceflux',"kg m^-2 s^-1",2,flusurf(1,igcm_n2) )
-         ! call writediagfi(ngrid,'haze_reff','haze_reff','m',3,reffrad(1,1,1))
+         call writediagfi(ngrid,'n2_iceflux','n2_iceflux',"kg m^-2 s^-1",2,flusurf(1,igcm_n2) )
+         call writediagfi(ngrid,'haze_reff','haze_reff','m',3,reffrad(1,1,1))
          if (methane) then
             call writediagfi(ngrid,'ch4_iceflux','ch4_iceflux',&