Changeset 2410


Ignore:
Timestamp:
12/16/15 09:10:00 (22 months ago)
Author:
jghattas
Message:

Added the variable yrmu0(cosine of the solar zenith angle) into ORCHIDEE:

Current version of LMDZ can now be used with ORCHIDEE trunk revisions from rev 2961 and newer. For revision 1078-2960 on ORCHIDEE trunk, a small modification (change coszang into sinang) in surf_land_orchidee_mod.f90 is needed. For older versions than ORCHIDEE trunk revision 1078, the interface in surf_land_orchidee_noopenmp_mod.f90 should be used (add cpp key ORCHIDEE_NOOPENMP).

For details see ticket  https://forge.ipsl.jussieu.fr/orchidee/ticket/217

Location:
LMDZ5/trunk/libf/phylmd
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/pbl_surface_mod.F90

    r2345 r2410  
    17341734!          print*,"DEBUGTS",yts(knon/2),ylwdown(knon/2) 
    17351735          CALL surf_land(itap, dtime, date0, jour, knon, ni,& 
    1736                rlon, rlat, & 
     1736               rlon, rlat, yrmu0, & 
    17371737               debut, lafin, ydelp(:,1), r_co2_ppm, ysolsw, ysollw, yalb, & 
    17381738               yts, ypplay(:,1), ycdragh, ycdragm, yrain_f, ysnow_f, yt(:,1), yq(:,1),& 
  • LMDZ5/trunk/libf/phylmd/surf_land_mod.F90

    r2243 r2410  
    99 
    1010  SUBROUTINE surf_land(itime, dtime, date0, jour, knon, knindex, & 
    11        rlon, rlat, & 
     11       rlon, rlat, yrmu0, & 
    1212       debut, lafin, zlev, ccanopy, swnet, lwnet, albedo, & 
    1313       tsurf, p1lay, cdragh, cdragm, precip_rain, precip_snow, temp_air, spechum, & 
     
    4545    REAL, INTENT(IN)                        :: date0 
    4646    REAL, DIMENSION(klon), INTENT(IN)       :: rlon, rlat 
     47    REAL, DIMENSION(klon), INTENT(IN)       :: yrmu0  ! cosine of solar zenith angle 
    4748    LOGICAL, INTENT(IN)                     :: debut, lafin 
    4849    REAL, INTENT(IN)                        :: dtime 
     
    132133       ! temporary for keeping same results using lwdown_m instead of lwdown 
    133134       CALL surf_land_orchidee(itime, dtime, date0, knon, & 
    134             knindex, rlon, rlat, pctsrf, & 
     135            knindex, rlon, rlat, yrmu0, pctsrf, & 
    135136            debut, lafin, & 
    136137            zlev,  u1, v1, gustiness, temp_air, spechum, epot_air, ccanopy, &  
  • LMDZ5/trunk/libf/phylmd/surf_land_orchidee_mod.F90

    r2351 r2410  
    33#ifndef ORCHIDEE_NOOPENMP 
    44! 
    5 ! This module controles the interface towards the model ORCHIDEE 
     5! This module controles the interface towards the model ORCHIDEE. 
     6! 
     7! Compatibility with ORCHIDIEE : 
     8! The current version can be used with ORCHIDEE/trunk from revision 2961. 
     9! This interface can also be used with ORCHIDEE/trunk revision 1078-2960 if changing  
     10! coszang=yrmu0 into sinang=yrmu0 at 2 places later below in this module.  
    611! 
    712! Subroutines in this module : surf_land_orchidee 
     
    3136 
    3237  SUBROUTINE surf_land_orchidee(itime, dtime, date0, knon, & 
    33        knindex, rlon, rlat, pctsrf, & 
     38       knindex, rlon, rlat, yrmu0, pctsrf, & 
    3439       debut, lafin, & 
    3540       plev,  u1_lay, v1_lay, gustiness, temp_air, spechum, epot_air, ccanopy, &  
     
    115120    REAL, DIMENSION(klon,nbsrf), INTENT(IN)   :: pctsrf 
    116121    REAL, DIMENSION(klon), INTENT(IN)         :: rlon, rlat 
     122    REAL, DIMENSION(klon), INTENT(IN)         :: yrmu0 ! cosine of solar zenith angle 
    117123    REAL, DIMENSION(klon), INTENT(IN)         :: plev 
    118124    REAL, DIMENSION(klon), INTENT(IN)         :: u1_lay, v1_lay, gustiness 
     
    405411               evap, fluxsens, fluxlat, coastalflow, riverflow, & 
    406412               tsol_rad, tsurf_new, qsurf, albedo_out, emis_new, z0_new, & 
    407                lon_scat, lat_scat, q2m, t2m) 
     413               lon_scat, lat_scat, q2m, t2m, coszang=yrmu0) 
    408414#endif          
    409415       ENDIF 
     
    429435            evap(1:knon), fluxsens(1:knon), fluxlat(1:knon), coastalflow(1:knon), riverflow(1:knon), & 
    430436            tsol_rad(1:knon), tsurf_new(1:knon), qsurf(1:knon), albedo_out(1:knon,:), emis_new(1:knon), z0_new(1:knon), & 
    431             lon_scat, lat_scat, q2m, t2m) 
     437            lon_scat, lat_scat, q2m, t2m, coszang=yrmu0(1:knon)) 
    432438#endif        
    433439    ENDIF 
  • LMDZ5/trunk/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90

    r2351 r2410  
    55! 
    66! This module is compiled only if CPP key ORCHIDEE_NOOPENMP is defined. 
    7 ! This module should be used with ORCHIDEE sequentiel or parallele MPI version (not MPI-OpenMP mixte) 
     7! This module should be used with ORCHIDEE sequentiel or parallele MPI version  
     8! (not MPI-OpenMP mixte) until revision 1077 in the ORCHIDEE trunk. 
    89 
    910#ifdef ORCHIDEE_NOOPENMP 
     
    3536 
    3637  SUBROUTINE surf_land_orchidee(itime, dtime, date0, knon, & 
    37        knindex, rlon, rlat, pctsrf, & 
     38       knindex, rlon, rlat, yrmu0, pctsrf, & 
    3839       debut, lafin, & 
    3940       plev,  u1_lay, v1_lay, temp_air, spechum, epot_air, ccanopy, &  
     
    118119    REAL, DIMENSION(klon,nbsrf), INTENT(IN)   :: pctsrf 
    119120    REAL, DIMENSION(klon), INTENT(IN)         :: rlon, rlat 
     121    REAL, DIMENSION(klon), INTENT(IN)         :: yrmu0 
    120122    REAL, DIMENSION(klon), INTENT(IN)         :: plev 
    121123    REAL, DIMENSION(klon), INTENT(IN)         :: u1_lay, v1_lay 
Note: See TracChangeset for help on using the changeset viewer.