source: trunk/LMDZ.COMMON/libf/evolution/interpolate_TIPEM_TIGCM_mod.F90 @ 3086

Last change on this file since 3086 was 3076, checked in by jbclement, 22 months ago

PEM:
Big cleaning/improvements of the PEM:

  • Conversion of "abort_pem.F" and "soil_settings_PEM.F" into Fortran 90;
  • Transformation of every PEM subroutines into module;
  • Rewriting of many subroutines with modern Fortran syntax;
  • Correction of a bug in "pem.F90" when calling 'recomp_tend_co2_slope'. The arguments were given in disorder and emissivity was missing;
  • Update of "launch_pem.sh" in deftank.

JBC

File size: 1.4 KB
Line 
1MODULE interpolate_TIPEM_TIGCM_mod
2
3implicit none
4
5!=======================================================================
6contains
7!=======================================================================
8
9SUBROUTINE interpolate_TIPEM_TIGCM(ngrid,nslope,nsoil_PEM,nsoil_GCM,TI_PEM,TI_GCM)
10
11!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
12!!!
13!!! Purpose: Transfer the thermal inertia from the PEM vertical  grid to the GCM vertical grid
14!!!
15!!!
16!!! Author: LL
17!!!
18!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
19
20implicit none
21
22!======================================================================
23!  arguments
24!  ---------
25!  inputs:
26integer,                                 intent(in) :: ngrid     ! # of horizontal grid points
27integer,                                 intent(in) :: nslope    ! # of subslope wihtin the mesh
28integer,                                 intent(in) :: nsoil_PEM ! # of soil layers in the PEM
29integer,                                 intent(in) :: nsoil_GCM ! # of soil layers in the GCM
30real, dimension(ngrid,nsoil_PEM,nslope), intent(in) :: TI_PEM    ! Thermal inertia in the PEM vertical grid [J/m^2/K/s^{1/2}]
31
32real, dimension(ngrid,nsoil_GCM,nslope), intent(inout) :: TI_GCM ! Thermal inertia in the GCM vertical grid [J/m^2/K/s^{1/2}]
33
34!----- Code
35TI_GCM(:,:,:) = TI_PEM(:,:nsoil_GCM,:)
36
37END SUBROUTINE interpolate_TIPEM_TIGCM
38
39END MODULE interpolate_TIPEM_TIGCM_mod
Note: See TracBrowser for help on using the repository browser.