Changeset 3544

Timestamp:

Dec 10, 2024, 4:24:49 PM (3 days ago)

Author:

afalco

Message:

Pluto: example files for DYNAMICO.
AF

Location:

trunk/LMDZ.PLUTO

Files:

• deftank/dynamico/context_dynamico.xml (added)
• deftank/dynamico/context_input_dynamico.xml (added)
• deftank/dynamico/context_pcm_physics.xml (added)
• deftank/dynamico/field_def_dynamico.xml (added)
• deftank/dynamico/field_def_physics.xml (added)
• deftank/dynamico/file_def_dynamico.xml (added)
• deftank/dynamico/file_def_physics.xml (added)
• deftank/dynamico/iodef.xml (added)
• deftank/dynamico/nudging_dynamico.xml (added)
• deftank/dynamico/run.def (added)
• deftank/dynamico/run.def.no_startfi (added)
• deftank/dynamico/sponge_dynamico.xml (added)
• deftank/dynamico/tracer.def (added)
• deftank/iodef.xml (added)
• libf/phypluto/physiq_mod.F90 (modified) (3 diffs)

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

@@ -89 +89 @@
       use wxios, only: wxios_context_init, xios_context_finalize
 #endif
+      USE mod_grid_phy_lmdz, ONLY: grid_type,unstructured,regular_lonlat
       use write_output_mod, only: write_output
 
@@ -952 +953 @@
       !    albedo(i,:) = albedo(1,:)
       ! enddo
+      ! AF24: TODO check albedo has been initialized here
 
       if (firstcall.and.callsoil) then
@@ -2066 +2068 @@
 
       if(lastcall) then
-         ztime_fin = ptime + ptimestep/(float(iphysiq)*daysec)
-
+         IF (grid_type==unstructured) THEN !IF DYNAMICO
+            ! DYNAMICO: no need to add a dynamics time step to ztime_fin
+            ztime_fin = ptime
+         ELSE ! LMDZ
+            ztime_fin = ptime + ptimestep/(float(iphysiq)*daysec)
+         ENDIF ! of IF (grid_type==unstructured)
          !! Update surface ice distribution to iterate to steady state if requested
          !! AF24: removed