Changeset 3333 for trunk/LMDZ.MARS/libf/phymars/conf_phys.F

Timestamp:

May 17, 2024, 11:30:17 AM (7 months ago)

Author:

llange

Message:

Mars PCM
Fixing a bug in vdif_cd: a "residual", used as criterion to enter an iterative loop, was wrongly initialized. Hence, for some points, the algorithm does not go into the loop, and a wrong value of Cd, Ch was computed.
Also some cleaning/small fixing with save variables with OMP.

LL

File:

• trunk/LMDZ.MARS/libf/phymars/conf_phys.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/conf_phys.F

@@ -376 +376 @@
          write(*,*)"albedo_perennialco2 = ",albedo_perennialco2
 
-         write(*,*)"Using lag layer??"
-         lag_layer=.false.
+         write(*,*)"Include water buoyancy effect??"
+         include_waterbuoyancy=.false.
          call getin_p("include_waterbuoyancy",include_waterbuoyancy)
          write(*,*) "include_waterbuoyancy = ", include_waterbuoyancy