Changeset 3314 for trunk/LMDZ.TITAN

Timestamp:

Apr 24, 2024, 11:49:17 AM (7 months ago)

Author:

slebonnois

Message:

newstart add methane tanks

File:

• trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/newstart.F (modified) (2 diffs)

trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/newstart.F

@@ -41 +41 @@
       use exner_hyb_m, only: exner_hyb
       use tracer_h
+      use geometry_mod, only: latitude_deg
       implicit none
 
@@ -1031 +1032 @@
 
 c================================================================
-c   Initialisation for methane surface tank (added by JVO 2017)
+c   Initialisation for methane surface tank 
+c   Added by JVO 2017 (constant across the entire surface)
+c   Modified by BdBdT 2024 (lakes at the poles)
 c================================================================
       DO ig=1, ngridmx
-         tankCH4(ig)=2.0
+        if (REAL(latitude_deg(ig)) .ge. 70.0) then
+          tankCH4(ig) = 200.0 ! [m]
+        else if (REAL(latitude_deg(ig)) .le. -70.0) then
+          tankCH4(ig) = 50.0  ! [m]
+        else
+          tankCH4(ig) = 0.0   ! [m]
+        endif
       ENDDO