Changeset 3335 for trunk/LMDZ.GENERIC
- Timestamp:
- May 18, 2024, 8:21:24 PM (7 months ago)
- Location:
- trunk/LMDZ.GENERIC
- Files:
-
- 9 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/changelog.txt
r3332 r3335 1930 1930 not 1 this extra computation of radiative tendencies will break 1931 1931 model restartability (the famous "1+1=2" requirement). 1932 1933 == 18/05/2024 == EM 1934 Add reading/writing of surface albedo in (re)startfi.nc to 1935 improve model restartability. For now only the simpler case 1936 of non-spectral dependent surface albedo is handled. 1937 Turned "surfini" in a module in the process. 1938 Unrelated: added missing delarations in kcm1d so it compiles one again. -
trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/newstart.F
r3116 r3335 21 21 USE tracer_h, ONLY: igcm_co2_ice, igcm_h2o_vap, igcm_h2o_ice 22 22 USE comsoil_h, ONLY: nsoilmx, layer, mlayer, inertiedat 23 USE radinc_h, only : L_NSPECTV ! number of spectral bands in the visible 23 24 USE surfdat_h, ONLY: phisfi, albedodat, 24 25 & zmea, zstd, zsig, zgam, zthe … … 112 113 REAL q2(ngridmx,llm+1) 113 114 ! REAL rnaturfi(ngridmx) 114 real alb(iip1,jjp1),albfi(ngridmx) ! albedos 115 real alb(iip1,jjp1),albfi(ngridmx) ! bare ground albedos 116 real albedodyn(iip1,jjp1),albedofi(ngridmx) ! surface albedos 117 real spectral_albedofi(ngridmx,L_NSPECTV) ! spectral surface albedo 115 118 real,ALLOCATABLE :: ith(:,:,:),ithfi(:,:) ! thermal inertia (3D) 116 119 real surfith(iip1,jjp1),surfithfi(ngridmx) ! surface thermal inertia (2D) … … 361 364 fichnom = 'startfi.nc' 362 365 CALL phyetat0(.true.,ngridmx,llm,fichnom,tab0,Lmodif,nsoilmx, 363 .nqtot,day_ini,time,364 . tsurf,tsoil,emis,q2,qsurf, !) ! temporary modif by RDW365 .cloudfrac,totalfrac,hice,rnat,pctsrf_sic,tslab,tsea_ice,366 .sea_ice)366 & nqtot,day_ini,time, 367 & tsurf,tsoil,emis,spectral_albedofi,q2,qsurf, 368 & cloudfrac,totalfrac,hice,rnat,pctsrf_sic,tslab,tsea_ice, 369 & sea_ice) 367 370 368 371 ! copy albedo and soil thermal inertia on (local) physics grid 369 372 do i=1,ngridmx 370 373 albfi(i) = albedodat(i) 374 albedofi(i)= spectral_albedofi(i,1) ! assume same albedo at all wavelenghts 371 375 do j=1,nsoilmx 372 376 ithfi(i,j) = inertiedat(i,j) … … 380 384 ! to correctly recast things on physics grid) 381 385 call gr_fi_dyn(1,ngridmx,iip1,jjp1,albfi,alb) 386 call gr_fi_dyn(1,ngridmx,iip1,jjp1,albedofi,albedodyn) 382 387 call gr_fi_dyn(nsoilmx,ngridmx,iip1,jjp1,ithfi,ith) 383 388 call gr_fi_dyn(1,ngridmx,iip1,jjp1,surfithfi,surfith) … … 1662 1667 call physdem1("restartfi.nc",nsoilmx,ngridmx,llm,nqtot, 1663 1668 & dtphys,real(day_ini), 1664 & tsurf,tsoil,emis, q2,qsurf,1669 & tsurf,tsoil,emis,spectral_albedofi,q2,qsurf, 1665 1670 & cloudfrac,totalfrac,hice, 1666 1671 & rnat,pctsrf_sic,tslab,tsea_ice,sea_ice) -
trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/start2archive.F
r3100 r3335 21 21 use infotrac, only: infotrac_init, nqtot, tname 22 22 USE comsoil_h 23 23 USE radinc_h, only : L_NSPECTV ! number of spectral bands in the visible 24 24 ! use slab_ice_h, only: noceanmx 25 25 USE ocean_slab_mod, ONLY: nslay … … 73 73 REAL,ALLOCATABLE :: qsurf(:,:) 74 74 REAL emis(ngridmx) 75 REAL :: albedo(ngridmx,L_NSPECTV) ! spectral surface albedo 75 76 INTEGER start,length 76 77 PARAMETER (length = 100) … … 99 100 REAL,ALLOCATABLE :: qsurfS(:,:) 100 101 REAL emisS(ip1jmp1) 102 REAL :: albedoS(ngridmx) ! surface albedo assumed same at all wavelengths 101 103 102 104 ! added by FF for cloud fraction setup … … 245 247 CALL phyetat0(.true.,ngridmx,llm,fichnom,0,Lmodif,nsoilmx,nqtot, 246 248 . day_ini_fi,timefi, 247 . tsurf,tsoil,emis, q2,qsurf,249 . tsurf,tsoil,emis,albedo,q2,qsurf, 248 250 ! change FF 05/2011 249 251 . cloudfrac,totalcloudfrac,hice, … … 351 353 call gr_fi_dyn(nsoilmx,ngridmx,iip1,jjp1,inertiedat,ithS) 352 354 call gr_fi_dyn(1,ngridmx,iip1,jjp1,emis,emisS) 355 call gr_fi_dyn(1,ngridmx,iip1,jjp1,albedo(1,1),albedoS) 353 356 call gr_fi_dyn(llm+1,ngridmx,iip1,jjp1,q2,q2S) 354 357 call gr_fi_dyn(nqtot,ngridmx,iip1,jjp1,qsurf,qsurfS) … … 455 458 ! & 'kg/m2',2,co2iceS) 456 459 call write_archive(nid,ntime,'emis','grd emis',' ',2,emisS) 460 call write_archive(nid,ntime,'albedo','surface albedo',' ', 461 & 2,albedoS) 457 462 call write_archive(nid,ntime,'ps','Psurf','Pa',2,ps) 458 463 call write_archive(nid,ntime,'tsurf','surf T','K',2,tsurfS) -
trunk/LMDZ.GENERIC/libf/phystd/dyn1d/kcm1d.F90
r3233 r3335 106 106 LOGICAL :: moderntracdef=.false. ! JVO, YJ : modern traceur.def 107 107 108 character(len=100) :: dt_file 109 integer :: ios 110 integer :: k 111 108 112 ! -------------- 109 113 ! Initialisation -
trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F
r3105 r3335 7 7 use infotrac, only: nqtot, tname 8 8 use tracer_h, only: noms, is_condensable 9 use radinc_h, only : L_NSPECTV 9 10 use surfdat_h, only: albedodat, phisfi, dryness, 10 11 & zmea, zstd, zsig, zgam, zthe, … … 94 95 integer :: i_h2o_ice=0 ! tracer index of h2o ice 95 96 integer :: i_h2o_vap=0 ! tracer index of h2o vapor 96 REAL emis(1) ! surface layer 97 REAL emis(1) ! emissivity of surface 98 real :: albedo(1,L_NSPECTV) ! surface albedo in various spectral bands 97 99 REAL q2(llm+1) ! Turbulent Kinetic Energy 98 100 REAL zlay(llm) ! altitude estimee dans les couches (km) … … 883 885 call getin("albedo",albedodat(1)) 884 886 write(*,*) " albedo = ",albedodat(1) 887 ! Initialize surface albedo to that of bare ground 888 albedo(1,:)=albedodat(1) 885 889 886 890 inertiedat(1,1)=400 ! default value for inertiedat … … 954 958 call physdem1("startfi.nc",nsoilmx,1,llm,nq, 955 959 & dtphys,time, 956 & tsurf,tsoil,emis, q2,qsurf,960 & tsurf,tsoil,emis,albedo,q2,qsurf, 957 961 & cloudfrac,totcloudfrac,hice, 958 962 & rnat,pctsrf_sic,tslab,tsea_ice,sea_ice) -
trunk/LMDZ.GENERIC/libf/phystd/phyetat0_mod.F90
r3100 r3335 7 7 subroutine phyetat0 (startphy_file, & 8 8 ngrid,nlayer,fichnom,tab0,Lmodif,nsoil,nq, & 9 day_ini,time,tsurf,tsoil, &10 emis,q2,qsurf,cloudfrac,totcloudfrac,hice, &9 day_ini,time,tsurf,tsoil,emis,albedo, & 10 q2,qsurf,cloudfrac,totcloudfrac,hice, & 11 11 rnat,pctsrf_sic,tslab,tsea_ice,sea_ice) 12 12 … … 18 18 use tabfi_mod, only: tabfi 19 19 USE tracer_h, ONLY: noms, igcm_h2o_vap 20 USE radinc_h, ONLY: L_NSPECTV 20 21 USE surfdat_h, only: phisfi, albedodat, zmea, zstd, zsig, zgam, zthe 21 22 use iostart, only: nid_start, open_startphy, close_startphy, & … … 48 49 real,intent(out) :: tsoil(ngrid,nsoil) ! soil temperature 49 50 real,intent(out) :: emis(ngrid) ! surface emissivity 51 real,intent(out) :: albedo(ngrid,L_NSPECTV) ! albedo of the surface 50 52 real,intent(out) :: q2(ngrid,nlayer+1) ! 51 53 real,intent(out) :: qsurf(ngrid,nq) ! tracers on surface … … 129 131 130 132 if (startphy_file) then 131 ! Load bare ground albedo: 133 ! Load bare ground albedo: (will be stored in surfdat_h) 132 134 call get_field("albedodat",albedodat,found) 133 135 if (.not.found) then … … 143 145 write(*,*) "phyetat0: Bare ground albedo <albedodat> range:", & 144 146 minval(albedodat), maxval(albedodat) 147 148 if (startphy_file) then 149 ! Load surface albedo (for now assume it is spectrally homogeneous) 150 call get_field("albedo",albedo(:,1),found) 151 if (.not.found) then 152 write(*,*) modname//": Failed loading <albedo>" 153 write(*,*) " setting it to bare ground albedo" 154 albedo(1:ngrid,1)=albedodat(1:ngrid) 155 endif 156 ! copy value to all spectral bands 157 do i=2,L_NSPECTV 158 albedo(1:ngrid,i)=albedo(1:ngrid,1) 159 enddo 160 else 161 ! If no startfi file, use bare ground value 162 do i=1,L_NSPECTV 163 albedo(1:ngrid,i)=albedodat(1:ngrid) 164 enddo 165 endif ! of if (startphy_file) 166 write(*,*) "phyetat0: Surface albedo <albedo> range:", & 167 minval(albedo), maxval(albedo) 145 168 146 169 ! ZMEA -
trunk/LMDZ.GENERIC/libf/phystd/phyredem.F90
r3311 r3335 134 134 135 135 subroutine physdem1(filename,nsoil,ngrid,nlay,nq, & 136 phystep,time,tsurf,tsoil,emis, q2,qsurf, &136 phystep,time,tsurf,tsoil,emis,albedo,q2,qsurf, & 137 137 cloudfrac,totcloudfrac,hice, & 138 138 rnat,pctsrf_sic,tslab,tsea_ice,sea_ice) … … 141 141 put_var, put_field 142 142 use tracer_h, only: noms 143 USE radinc_h, ONLY: L_NSPECTV 143 144 ! use slab_ice_h, only: noceanmx 144 145 USE ocean_slab_mod, ONLY: nslay … … 159 160 real,intent(in) :: tsoil(ngrid,nsoil) 160 161 real,intent(in) :: emis(ngrid) 162 real,intent(in) :: albedo(ngrid,L_NSPECTV) 161 163 real,intent(in) :: q2(ngrid,nlay+1) 162 164 real,intent(in) :: qsurf(ngrid,nq) … … 189 191 call put_field("emis","Surface emissivity",emis) 190 192 193 ! Surface albedo (assume homegeneous spectral albedo for now) 194 call put_field("albedo","Surface albedo",albedo(:,1)) 195 191 196 ! Planetary Boundary Layer 192 197 call put_field("q2","pbl wind variance",q2) -
trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90
r3332 r3335 39 39 use time_phylmdz_mod, only: ecritphy, iphysiq, nday 40 40 use phyetat0_mod, only: phyetat0 41 use surfini_mod, only: surfini 41 42 use wstats_mod, only: callstats, wstats, mkstats 42 43 use phyredem, only: physdem0, physdem1 … … 592 593 call phyetat0(startphy_file, & 593 594 ngrid,nlayer,"startfi.nc",0,0,nsoilmx,nq, & 594 day_ini,time_phys,tsurf,tsoil,emis, q2,qsurf,&595 cloudfrac,totcloudfrac,hice,&595 day_ini,time_phys,tsurf,tsoil,emis,albedo, & 596 q2,qsurf,cloudfrac,totcloudfrac,hice, & 596 597 rnat,pctsrf_sic,tslab, tsea_ice,sea_ice) 597 598 … … 626 627 ! Initialize albedo calculation. 627 628 ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 628 albedo(:,:)=0.0 629 albedo_bareground(:)=0.0 630 albedo_snow_SPECTV(:)=0.0 631 albedo_co2_ice_SPECTV(:)=0.0 632 call surfini(ngrid,nq,qsurf,albedo,albedo_bareground,albedo_snow_SPECTV,albedo_co2_ice_SPECTV) 629 call surfini(ngrid,nq,qsurf,albedo,albedo_bareground,& 630 albedo_snow_SPECTV,albedo_co2_ice_SPECTV) 633 631 634 632 ! Initialize orbital calculation. … … 2372 2370 call physdem1("restartfi.nc",nsoilmx,ngrid,nlayer,nq, & 2373 2371 ptimestep,ztime_fin, & 2374 tsurf,tsoil,emis, q2,qsurf_hist,&2372 tsurf,tsoil,emis,albedo,q2,qsurf_hist, & 2375 2373 cloudfrac,totcloudfrac,hice, & 2376 2374 rnat,pctsrf_sic,tslab,tsea_ice,sea_ice) -
trunk/LMDZ.GENERIC/libf/phystd/surfini.F
r1482 r3335 1 MODULE surfini_mod 2 3 IMPLICIT NONE 4 5 CONTAINS 6 1 7 SUBROUTINE surfini(ngrid,nq,qsurf,albedo,albedo_bareground, 2 8 & albedo_snow_SPECTV,albedo_co2_ice_SPECTV) 3 9 4 USE surfdat_h, only: albedodat 5 USE tracer_h, only: igcm_co2_ice 10 USE surfdat_h, only: albedodat ! bare ground albedo 6 11 use planetwide_mod, only: planetwide_maxval, planetwide_minval 7 use radinc_h, only : L_NSPECTV 12 use radinc_h, only : L_NSPECTV ! number of spectral bands in the visible 8 13 use callkeys_mod, only : albedosnow, albedoco2ice 9 14 … … 24 29 INTEGER,INTENT(IN) :: ngrid 25 30 INTEGER,INTENT(IN) :: nq 26 REAL,INTENT( OUT) :: albedo(ngrid,L_NSPECTV)31 REAL,INTENT(IN) :: albedo(ngrid,L_NSPECTV) 27 32 REAL,INTENT(OUT) :: albedo_bareground(ngrid) 28 33 REAL,INTENT(OUT) :: albedo_snow_SPECTV(L_NSPECTV) … … 45 50 DO ig=1,ngrid 46 51 albedo_bareground(ig)=albedodat(ig) 47 DO nw=1,L_NSPECTV48 albedo(ig,nw)=albedo_bareground(ig)49 ENDDO50 52 ENDDO 51 53 call planetwide_minval(albedo_bareground,min_albedo) … … 55 57 56 58 57 ! Step 3 : We modify the albedo considering some CO2 at the surface. We dont take into account water ice (this is made in hydrol after the first timestep) ... 58 if (igcm_co2_ice.ne.0) then 59 DO ig=1,ngrid 60 IF (qsurf(ig,igcm_co2_ice) .GT. 1.) THEN ! This was changed by MT2015. Condition for ~1mm of CO2 ice deposit. 61 DO nw=1,L_NSPECTV 62 albedo(ig,nw)=albedo_co2_ice_SPECTV(nw) 63 ENDDO 64 END IF 65 ENDDO 66 else 67 write(*,*) "surfini: No CO2 ice tracer on surface ..." 68 write(*,*) " and therefore no albedo change." 69 endif 59 ! Step 3 : Surface albedo already loaded from startfi.nc 60 ! merely report vmin/max values here 61 70 62 call planetwide_minval(albedo,min_albedo) 71 63 call planetwide_maxval(albedo,max_albedo) … … 74 66 75 67 76 END 68 END SUBROUTINE surfini 69 70 END MODULE surfini_mod
Note: See TracChangeset
for help on using the changeset viewer.