Changeset 6015 for LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nolic_mod.F90
- Timestamp:
- Jan 12, 2026, 3:22:42 PM (4 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nolic_mod.F90
r5927 r6015 131 131 REAL, INTENT(IN) :: date0 132 132 INTEGER, INTENT(IN) :: knon 133 INTEGER, DIMENSION(k lon), INTENT(IN) :: knindex133 INTEGER, DIMENSION(knon), INTENT(IN) :: knindex 134 134 LOGICAL, INTENT(IN) :: debut, lafin 135 135 REAL, DIMENSION(klon,nbsrf), INTENT(IN) :: pctsrf 136 136 REAL, DIMENSION(klon), INTENT(IN) :: rlon, rlat 137 REAL, DIMENSION(k lon), INTENT(IN) :: yrmu0 ! cosine of solar zenith angle138 REAL, DIMENSION(k lon), INTENT(IN) :: plev139 REAL, DIMENSION(k lon), INTENT(IN) :: u1_lay, v1_lay, gustiness140 REAL, DIMENSION(k lon), INTENT(IN) :: temp_air, spechum141 REAL, DIMENSION(k lon), INTENT(IN) :: epot_air, ccanopy142 REAL, DIMENSION(k lon), INTENT(IN) :: tq_cdrag143 REAL, DIMENSION(k lon), INTENT(IN) :: petAcoef, peqAcoef144 REAL, DIMENSION(k lon), INTENT(IN) :: petBcoef, peqBcoef145 REAL, DIMENSION(k lon), INTENT(IN) :: precip_rain, precip_snow146 REAL, DIMENSION(k lon), INTENT(IN) :: lwdown, swnet, swdown, ps147 REAL, DIMENSION(k lon), INTENT(IN) :: q2m, t2m137 REAL, DIMENSION(knon), INTENT(IN) :: yrmu0 ! cosine of solar zenith angle 138 REAL, DIMENSION(knon), INTENT(IN) :: plev 139 REAL, DIMENSION(knon), INTENT(IN) :: u1_lay, v1_lay, gustiness 140 REAL, DIMENSION(knon), INTENT(IN) :: temp_air, spechum 141 REAL, DIMENSION(knon), INTENT(IN) :: epot_air, ccanopy 142 REAL, DIMENSION(knon), INTENT(IN) :: tq_cdrag 143 REAL, DIMENSION(knon), INTENT(IN) :: petAcoef, peqAcoef 144 REAL, DIMENSION(knon), INTENT(IN) :: petBcoef, peqBcoef 145 REAL, DIMENSION(knon), INTENT(IN) :: precip_rain, precip_snow 146 REAL, DIMENSION(knon), INTENT(IN) :: lwdown, swnet, swdown, ps 147 REAL, DIMENSION(knon), INTENT(IN) :: q2m, t2m 148 148 #ifdef ISO 149 REAL, DIMENSION(ntraciso,k lon), INTENT(IN):: xtprecip_rain, xtprecip_snow149 REAL, DIMENSION(ntraciso,knon), INTENT(IN):: xtprecip_rain, xtprecip_snow 150 150 #endif 151 151 152 152 ! Parametres de sortie 153 153 !**************************************************************************************** 154 REAL, DIMENSION(k lon), INTENT(OUT) :: evap, fluxsens, fluxlat, qsurf154 REAL, DIMENSION(knon), INTENT(OUT) :: evap, fluxsens, fluxlat, qsurf 155 155 !PRSN 156 156 #ifdef ISO 157 REAL, DIMENSION(ntraciso,k lon), INTENT(OUT) :: xtriverflow158 REAL, DIMENSION(ntraciso,k lon), INTENT(OUT) :: xtcoastalflow159 REAL, DIMENSION(ntraciso,k lon), INTENT(OUT) :: xtevap160 REAL, DIMENSION(ntraciso,k lon), INTENT(INOUT) :: Rsol157 REAL, DIMENSION(ntraciso,knon), INTENT(OUT) :: xtriverflow 158 REAL, DIMENSION(ntraciso,knon), INTENT(OUT) :: xtcoastalflow 159 REAL, DIMENSION(ntraciso,knon), INTENT(OUT) :: xtevap 160 REAL, DIMENSION(ntraciso,knon), INTENT(INOUT) :: Rsol 161 161 #endif 162 162 !PRSN 163 REAL, DIMENSION(k lon), INTENT(OUT) :: tsol_rad, tsurf_new164 REAL, DIMENSION(k lon), INTENT(OUT) :: alb1_new, alb2_new165 REAL, DIMENSION(k lon), INTENT(OUT) :: emis_new, z0m_new, z0h_new166 REAL, DIMENSION(k lon,nvm_lmdz), INTENT(OUT) :: veget167 REAL, DIMENSION(k lon,nvm_lmdz), INTENT(OUT) :: lai168 REAL, DIMENSION(k lon,nvm_lmdz), INTENT(OUT) :: height163 REAL, DIMENSION(knon), INTENT(OUT) :: tsol_rad, tsurf_new 164 REAL, DIMENSION(knon), INTENT(OUT) :: alb1_new, alb2_new 165 REAL, DIMENSION(knon), INTENT(OUT) :: emis_new, z0m_new, z0h_new 166 REAL, DIMENSION(knon,nvm_lmdz), INTENT(OUT) :: veget 167 REAL, DIMENSION(knon,nvm_lmdz), INTENT(OUT) :: lai 168 REAL, DIMENSION(knon,nvm_lmdz), INTENT(OUT) :: height 169 169 170 170 ! Local … … 172 172 INTEGER :: ij, jj, igrid, ireal, index, nb 173 173 INTEGER :: error 174 REAL, DIMENSION(k lon) :: swdown_vrai174 REAL, DIMENSION(knon) :: swdown_vrai 175 175 CHARACTER (len = 20) :: modname = 'surf_land_orchidee' 176 176 CHARACTER (len = 80) :: abort_message … … 216 216 217 217 ! Pb de nomenclature 218 REAL, DIMENSION(k lon) :: petA_orc, peqA_orc219 REAL, DIMENSION(k lon) :: petB_orc, peqB_orc218 REAL, DIMENSION(knon) :: petA_orc, peqA_orc 219 REAL, DIMENSION(knon) :: petB_orc, peqB_orc 220 220 ! Pb de correspondances de grilles 221 221 INTEGER, DIMENSION(:), SAVE, ALLOCATABLE :: ig, jg … … 226 226 227 227 ! Essai cdrag 228 REAL, DIMENSION(k lon) :: cdrag228 REAL, DIMENSION(knon) :: cdrag 229 229 INTEGER,SAVE :: offset 230 230 !$OMP THREADPRIVATE(offset) … … 488 488 ENDIF 489 489 490 ALLOCATE(coastalflow(k lon), stat = error)490 ALLOCATE(coastalflow(knon), stat = error) 491 491 IF (error /= 0) THEN 492 492 abort_message='Pb allocation coastalflow' … … 494 494 ENDIF 495 495 496 ALLOCATE(riverflow(k lon), stat = error)496 ALLOCATE(riverflow(knon), stat = error) 497 497 IF (error /= 0) THEN 498 498 abort_message='Pb allocation riverflow' … … 739 739 740 740 INTEGER,INTENT(IN) :: knon 741 INTEGER,INTENT(IN) :: knindex(k lon)741 INTEGER,INTENT(IN) :: knindex(knon) 742 742 INTEGER,INTENT(OUT) :: offset 743 INTEGER,INTENT(OUT) :: ktindex(k lon)743 INTEGER,INTENT(OUT) :: ktindex(knon) 744 744 745 745 INTEGER :: ktindex_glo(knon_glo) … … 830 830 !**************************************************************************************** 831 831 INTEGER, INTENT(IN) :: knon 832 INTEGER, DIMENSION(k lon), INTENT(IN) :: knindex832 INTEGER, DIMENSION(knon), INTENT(IN) :: knindex 833 833 REAL, DIMENSION(klon), INTENT(IN) :: pctsrf 834 834 … … 847 847 INTEGER, DIMENSION(knon_glo,8) :: neighbours_glo 848 848 REAL, DIMENSION(klon_glo) :: pctsrf_glo 849 INTEGER :: ktindex(k lon)849 INTEGER :: ktindex(knon) 850 850 ! 851 851 ! End definition
Note: See TracChangeset
for help on using the changeset viewer.
