Changeset 3203 for trunk/LMDZ.COMMON/libf/evolution/pemetat0.F90

Timestamp:

Feb 7, 2024, 12:14:38 PM (10 months ago)

Author:

jbclement

Message:

Mars PCM:

• Addition of the possibility to use subslopes parametization in 1D. To do so, put 'nslope=x' in "run.def" where x (1, 3, 5 or 7) is the number of slopes you want to, or modify it in an appropriate "startfi.nc". Then, default subslopes definition and distribution are used by the model. The already existing case of using one slope whose inclination and orientation are defined in "run.def" is still possible.
• Some cleanings throughout the code, in particular related to unused variables.

JBC

File:

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

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

@@ -253 +253 @@
                 tsoil_tmp_yr2(:,:,islope) = tsoil_tmp_yr1(:,:,islope)
                 call compute_tsoil_pem(ngrid,nsoil_PEM,.false.,TI_PEM(:,:,islope),timestep,tsurf_avg_yr2(:,islope),tsoil_tmp_yr2(:,:,islope))
-                
+
                 do iloop = nsoil_PCM+1,nsoil_PEM
                     tsoil_PEM(:,iloop,islope) = tsoil_tmp_yr2(:,iloop,islope)