Changeset 2855 for trunk/LMDZ.COMMON/libf/evolution/soil_pem.F90

Timestamp:

Dec 22, 2022, 5:43:14 PM (2 years ago)

Author:

llange

Message:

PEM
Documentation of the main subroutines, and variables.
Unused programs have been removed.
LL

File:

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

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

@@ -25 +25 @@
 !  ---------
 !  inputs:
-      integer,intent(in) :: ngrid       ! number of (horizontal) grid-points 
-      integer,intent(in) :: nsoil       ! number of soil layers  
-      logical,intent(in) :: firstcall ! identifier for initialization call 
-      real,intent(in) :: therm_i(ngrid,nsoil) ! thermal inertia
-      real,intent(in) :: timestep           ! time step
-      real,intent(in) :: tsurf(ngrid)   ! surface temperature
+      integer,intent(in) :: ngrid       ! number of (horizontal) grid-points 
+      integer,intent(in) :: nsoil       ! number of soil layers  
+      logical,intent(in) :: firstcall    ! identifier for initialization call 
+      real,intent(in) :: therm_i(ngrid,nsoil) ! thermal inertia [SI]
+      real,intent(in) :: timestep       ! time step [s]
+      real,intent(in) :: tsurf(ngrid)   ! surface temperature [K]
  
 ! outputs:
-      real,intent(inout) :: tsoil(ngrid,nsoil) ! soil (mid-layer) temperature
-      real,intent(inout) :: alph_PEM(ngrid,nsoil-1)
-      real,intent(inout) :: beta_PEM(ngrid,nsoil-1)
+      real,intent(inout) :: tsoil(ngrid,nsoil) ! soil (mid-layer) temperature [K]
+      real,intent(inout) :: alph_PEM(ngrid,nsoil-1) ! intermediate for computations [1]
+      real,intent(inout) :: beta_PEM(ngrid,nsoil-1) ! intermediate for computations [K]
       
 ! local variables: