Changeset 3183 for trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F90

Timestamp:

Jan 25, 2024, 6:06:27 PM (10 months ago)

Author:

jbclement

Message:

Mars PCM:
Some changes to prepare the introduction of slopes in 1D: in particular, the subroutine "getslopes.F90" and "param_slope.F90" are now inside the module "slope_mod.F90" + Few small cleanings throughout the code.
JBC

File:

• trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F90

@@ -255 +255 @@
     ! Compute winds and temperature for next time step
     ! ------------------------------------------------
-    u(:) = u(:) + dttestphys*du(:)
-    v(:) = v(:) + dttestphys*dv(:)
-    temp(:) = temp(:) + dttestphys*dtemp(:)
+    u = u + dttestphys*du
+    v = v + dttestphys*dv
+    temp = temp + dttestphys*dtemp
 
     ! Compute pressure for next time step