Changeset 4143 for LMDZ6/trunk/libf/phylmdiso/surf_seaice_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_seaice_mod.F90
r3940 r4143 35 35 USE indice_sol_mod 36 36 #ifdef ISO 37 USE infotrac_phy, ONLY : nt raciso,niso37 USE infotrac_phy, ONLY : ntiso,niso 38 38 #endif 39 39 … … 71 71 REAL, DIMENSION(klon,nbsrf), INTENT(IN) :: pctsrf 72 72 #ifdef ISO 73 REAL, DIMENSION(nt raciso,klon), INTENT(IN) :: xtprecip_rain, xtprecip_snow73 REAL, DIMENSION(ntiso,klon), INTENT(IN) :: xtprecip_rain, xtprecip_snow 74 74 REAL, DIMENSION(klon), INTENT(IN) :: xtspechum 75 75 REAL, DIMENSION(niso,klon), INTENT(IN) :: Roce … … 101 101 REAL, DIMENSION(klon), INTENT(OUT) :: flux_u1, flux_v1 102 102 #ifdef ISO 103 REAL, DIMENSION(nt raciso,klon), INTENT(OUT) :: xtevap103 REAL, DIMENSION(ntiso,klon), INTENT(OUT) :: xtevap 104 104 #endif 105 105
Note: See TracChangeset
for help on using the changeset viewer.