Changeset 3986

Timestamp:

Dec 10, 2025, 11:45:15 AM (7 days ago)

Author:

vbelissa

Message:

PLUTO PCM :
Adding option for CH4 albedo
VB

File:

• trunk/LMDZ.PLUTO/libf/phypluto/surfprop.F90 (modified) (1 diff)

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

@@ -343 +343 @@
                    albedo(ig,:)=albedodat(ig)
 
+                 CASE (5) ! Albedo from albedodat except inside East Tombaugh Regio
+                   emis(ig) = emis_ch4
+
+                   albedo(ig,:) = albedodat(ig)
+
+                   ! Boîte East Tombaugh Regio (en degrés)
+                   ! lat E [-10°, 30°] ; lon E [100°,160°]
+                   if ( latitude(ig)*180.0/pi .le. 30.0 .and. &
+     &                  latitude(ig)*180.0/pi .ge. -10.0 ) then
+                     if ( longitude(ig)*180.0/pi .ge. -168.75 .and. &
+     &                    longitude(ig)*180.0/pi .le. -135.0 ) then
+
+                        ! Albédo spécifique CH4 sur ET
+                        albedo(ig,:) = alb_tho
+                     endif
+                   endif
+
+
                  CASE DEFAULT
                      write(*,*) 'STOP in surfprop.F90:mod_ch4 not found'