Changeset 4143 for LMDZ6/trunk/libf/phylmdiso/surf_landice_mod.F90
- Timestamp:
- May 9, 2022, 12:35:40 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/surf_landice_mod.F90
r4033 r4143 37 37 #ifdef ISO 38 38 USE fonte_neige_mod, ONLY : xtrun_off_lic 39 USE infotrac_phy, ONLY : nt raciso,niso39 USE infotrac_phy, ONLY : ntiso,niso 40 40 USE isotopes_routines_mod, ONLY: calcul_iso_surf_lic_vectall 41 41 #ifdef ISOVERIF … … 82 82 REAL, DIMENSION(klon,nbsrf), INTENT(IN) :: pctsrf 83 83 #ifdef ISO 84 REAL, DIMENSION(nt raciso,klon), INTENT(IN):: xtprecip_rain, xtprecip_snow85 REAL, DIMENSION(nt raciso,klon), INTENT(IN):: xtspechum84 REAL, DIMENSION(ntiso,klon), INTENT(IN) :: xtprecip_rain, xtprecip_snow 85 REAL, DIMENSION(ntiso,klon), INTENT(IN) :: xtspechum 86 86 #endif 87 87 … … 129 129 REAL, DIMENSION(klon), INTENT(OUT) :: runoff !Land ice runoff 130 130 #ifdef ISO 131 REAL, DIMENSION(nt raciso,klon), INTENT(OUT):: xtevap131 REAL, DIMENSION(ntiso,klon), INTENT(OUT) :: xtevap 132 132 ! real, DIMENSION(niso,klon) :: xtrun_off_lic_0_diag ! est une variable globale de 133 133 ! fonte_neige
Note: See TracChangeset
for help on using the changeset viewer.