- Timestamp:
- Apr 8, 2009, 12:47:23 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90
r1138 r1144 40 40 tq_cdrag, petAcoef, peqAcoef, petBcoef, peqBcoef, & 41 41 precip_rain, precip_snow, lwdown, swnet, swdown, & 42 ps, &42 ps, q2m, t2m, & 43 43 evap, fluxsens, fluxlat, & 44 44 tsol_rad, tsurf_new, alb1_new, alb2_new, & … … 121 121 REAL, DIMENSION(klon), INTENT(IN) :: precip_rain, precip_snow 122 122 REAL, DIMENSION(klon), INTENT(IN) :: lwdown, swnet, swdown, ps 123 REAL, DIMENSION(klon) :: swdown_vrai123 REAL, DIMENSION(klon), INTENT(IN) :: q2m, t2m 124 124 125 125 ! Parametres de sortie … … 134 134 INTEGER :: ij, jj, igrid, ireal, index 135 135 INTEGER :: error 136 REAL, DIMENSION(klon) :: swdown_vrai 136 137 CHARACTER (len = 20) :: modname = 'surf_land_orchidee' 137 138 CHARACTER (len = 80) :: abort_message … … 390 391 evap, fluxsens, fluxlat, coastalflow, riverflow, & 391 392 tsol_rad, tsurf_new, qsurf, albedo_out, emis_new, z0_new, & 392 lon_scat, lat_scat )393 lon_scat, lat_scat, q2m, t2m) 393 394 394 395 #else … … 402 403 evap(1:knon), fluxsens(1:knon), fluxlat(1:knon), coastalflow(1:knon), riverflow(1:knon), & 403 404 tsol_rad(1:knon), tsurf_new(1:knon), qsurf(1:knon), albedo_out(1:knon,:), emis_new(1:knon), z0_new(1:knon), & 404 lon_scat, lat_scat )405 lon_scat, lat_scat, q2m, t2m) 405 406 #endif 406 407 … … 426 427 evap, fluxsens, fluxlat, coastalflow, riverflow, & 427 428 tsol_rad, tsurf_new, qsurf, albedo_out, emis_new, z0_new, & 428 lon_scat, lat_scat )429 lon_scat, lat_scat, q2m, t2m) 429 430 430 431 #else … … 438 439 evap(1:knon), fluxsens(1:knon), fluxlat(1:knon), coastalflow(1:knon), riverflow(1:knon), & 439 440 tsol_rad(1:knon), tsurf_new(1:knon), qsurf(1:knon), albedo_out(1:knon,:), emis_new(1:knon), z0_new(1:knon), & 440 lon_scat, lat_scat )441 lon_scat, lat_scat, q2m, t2m) 441 442 #endif 442 443
Note: See TracChangeset
for help on using the changeset viewer.