Changeset 3526 for trunk/LMDZ.COMMON/libf/evolution/NS_fast_subs_mars.F90

Timestamp:

Nov 19, 2024, 5:54:18 PM (4 days ago)

Author:

jbclement

Message:

PEM:
Removing unused or redundant Norbert Schorghofer's subroutines (follow-up of r3493) + cleaning and some modifications of related subroutines.
JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/NS_fast_subs_mars.F90 (modified) (1 diff)

trunk/LMDZ.COMMON/libf/evolution/NS_fast_subs_mars.F90

@@ -294 +294 @@
 
 
-subroutine outputmoduleparameters
-  use miscparameters
-  use thermalmodelparam_mars
-  implicit none
-!  print *,'Parameters stored in modules'
-!  print *,'  Ice bulk density',icedensity,'kg/m^3'
-!  print *,'  dt=',dt,'Mars solar days'
-!  print *,'  Fgeotherm=',Fgeotherm,'W/m^2'
-!  write(6,'(2x,a27,1x,f5.3)') 'Emissivity of dry surface=',emiss0
-!  write(6,'(2x,a12,1x,f5.3,2x,a16,1x,f5.3)') 'CO2 albedo=',co2albedo,'CO2 emissivity=',co2emiss
-!  print *,'  Thermal model equilibration time',EQUILTIME,'Mars years'
-end subroutine outputmoduleparameters
-
-
-
+real*8 function tfrostco2(p)
+!     the inverse of function psvco2
+!     input is pressure in Pascal, output is temperature in Kelvin
+implicit none
+real*8 p
+tfrostco2 = 3182.48/(23.3494+log(100./p))
+end function