- Timestamp:
- Dec 6, 2022, 12:01:16 AM (22 months ago)
- Location:
- LMDZ6/branches/Ocean_skin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin
- Property svn:mergeinfo changed
-
LMDZ6/branches/Ocean_skin/libf/phylmd/phys_state_var_mod.F90
r4020 r4368 62 62 REAL, ALLOCATABLE, SAVE :: swradcorr(:) 63 63 !$OMP THREADPRIVATE(swradcorr) 64 #ifdef ISO 65 REAL,ALLOCATABLE,SAVE :: xtsol(:,:),fxtevap(:,:,:) 66 !$OMP THREADPRIVATE(xtsol,fxtevap) 67 REAL, ALLOCATABLE, SAVE :: xtrain_fall(:,:), xtsnow_fall(:,:) 68 !$OMP THREADPRIVATE(xtrain_fall,xtsnow_fall) 69 #endif 64 70 65 71 !clesphy0 param physiq … … 80 86 REAL, ALLOCATABLE, SAVE :: prw_ancien(:), prlw_ancien(:), prsw_ancien(:) 81 87 !$OMP THREADPRIVATE(prw_ancien, prlw_ancien, prsw_ancien) 88 #ifdef ISO 89 REAL, ALLOCATABLE, SAVE :: xt_ancien(:,:,:),xtl_ancien(:,:,:),xts_ancien(:,:,:) 90 !$OMP THREADPRIVATE(xt_ancien,xtl_ancien,xts_ancien) 91 #endif 82 92 REAL, ALLOCATABLE, SAVE :: u_ancien(:,:), v_ancien(:,:) 83 93 !$OMP THREADPRIVATE(u_ancien, v_ancien) … … 90 100 REAL, ALLOCATABLE, SAVE :: clwcon(:,:),rnebcon(:,:) 91 101 !$OMP THREADPRIVATE(clwcon,rnebcon) 102 REAL, ALLOCATABLE, SAVE :: rneb_ancien(:,:) 103 !$OMP THREADPRIVATE(rneb_ancien) 92 104 REAL, ALLOCATABLE, SAVE :: qtc_cv(:,:),sigt_cv(:,:) 93 105 !$OMP THREADPRIVATE(qtc_cv,sigt_cv) … … 219 231 REAL,ALLOCATABLE,SAVE :: fqd(:,:) 220 232 !$OMP THREADPRIVATE(fqd) 233 #ifdef ISO 234 REAL, ALLOCATABLE, SAVE :: fxtd(:,:,:) 235 !$OMP THREADPRIVATE(fxtd) 236 #endif 221 237 !34EK 222 238 ! -- Variables de controle de ALE et ALP … … 258 274 REAL,ALLOCATABLE,SAVE :: wake_deltaq(:,:) 259 275 !$OMP THREADPRIVATE(wake_deltaq) 276 #ifdef ISO 277 REAL, ALLOCATABLE, SAVE :: wake_deltaxt(:,:,:) 278 !$OMP THREADPRIVATE(wake_deltaxt) 279 #endif 260 280 REAL,ALLOCATABLE,SAVE :: wake_s(:) 261 281 !$OMP THREADPRIVATE(wake_s) … … 395 415 !$OMP THREADPRIVATE(snow_con) 396 416 ! 417 #ifdef ISO 418 REAL,SAVE,ALLOCATABLE :: xtrain_con(:,:) 419 !$OMP THREADPRIVATE(xtrain_con) 420 REAL,SAVE,ALLOCATABLE :: xtsnow_con(:,:) 421 !$OMP THREADPRIVATE(xtsnow_con) 422 #endif 397 423 REAL,SAVE,ALLOCATABLE :: rlonPOS(:) 398 424 !$OMP THREADPRIVATE(rlonPOS) … … 429 455 !$OMP THREADPRIVATE(ratqs_inter) 430 456 457 #ifdef ISO 458 #ifdef ISOTRAC 459 INTEGER,SAVE,ALLOCATABLE :: bassin_map(:) 460 !$OMP THREADPRIVATE(bassin_map) 461 INTEGER,SAVE,ALLOCATABLE :: boite_map(:,:) 462 !$OMP THREADPRIVATE(boite_map) 463 #endif 464 #endif 431 465 REAL, ALLOCATABLE, SAVE:: du_gwd_rando(:, :), du_gwd_front(:, :) 432 466 !$OMP THREADPRIVATE(du_gwd_rando, du_gwd_front) … … 475 509 USE aero_mod 476 510 USE infotrac_phy, ONLY : nbtr 511 #ifdef ISO 512 USE infotrac_phy, ONLY : ntraciso=>ntiso,niso 513 #endif 477 514 USE indice_sol_mod 478 515 use config_ocean_skin_m, only: activate_ocean_skin … … 526 563 !!! Rom P <<< 527 564 ALLOCATE(clwcon(klon,klev),rnebcon(klon,klev)) 565 ALLOCATE(rneb_ancien(klon,klev)) 528 566 ALLOCATE(qtc_cv(klon,klev),sigt_cv(klon,klev)) 529 567 ALLOCATE(ratqs(klon,klev)) … … 534 572 ALLOCATE(coefh(klon,klev+1,nbsrf+1)) 535 573 ALLOCATE(coefm(klon,klev+1,nbsrf+1)) 574 ! initialize cleanly coefh,coefm 575 ! (most of the time in the code these are assumed to be on klev levels) 576 coefh(:,:,:)=0 577 coefm(:,:,:)=0 536 578 ALLOCATE(zmax0(klon), f0(klon)) 537 579 ALLOCATE(sig1(klon,klev), w01(klon,klev)) … … 668 710 ALLOCATE(cg_aero_lw_rrtm(klon,klev,2,nbands_lw_rrtm)) 669 711 ALLOCATE(ccm(klon,klev,nbands)) 712 713 #ifdef ISO 714 ALLOCATE(xtsol(niso,klon),fxtevap(ntraciso,klon,nbsrf)) 715 ALLOCATE(fxtd(ntraciso,klon,klev)) 716 ALLOCATE(wake_deltaxt(ntraciso,klon,klev)) 717 ALLOCATE(xt_ancien(ntraciso,klon,klev)) 718 ALLOCATE(xtl_ancien(ntraciso,klon,klev)) 719 ALLOCATE(xts_ancien(ntraciso,klon,klev)) 720 ALLOCATE(xtrain_fall(ntraciso,klon)) 721 ALLOCATE(xtsnow_fall(ntraciso,klon)) 722 ALLOCATE(xtrain_con(ntraciso,klon)) 723 ALLOCATE(xtsnow_con(ntraciso,klon)) 724 #ifdef ISOTRAC 725 ALLOCATE(bassin_map(klon)) 726 ALLOCATE(boite_map(klon,klev)) 727 #endif 728 #endif 729 670 730 ALLOCATE(ale_bl_trig(klon)) 671 731 ALLOCATE(ratqs_inter(klon,klev)) … … 707 767 DEALLOCATE(zthe, zpic, zval) 708 768 DEALLOCATE(rugoro, t_ancien, q_ancien, clwcon, rnebcon) 709 DEALLOCATE(qs_ancien, ql_ancien )769 DEALLOCATE(qs_ancien, ql_ancien, rneb_ancien) 710 770 DEALLOCATE(prw_ancien, prlw_ancien, prsw_ancien) 711 771 DEALLOCATE(qtc_cv,sigt_cv) … … 829 889 end if 830 890 891 #ifdef ISO 892 DEALLOCATE(xtsol,fxtevap) 893 DEALLOCATE(xt_ancien,xtl_ancien,xts_ancien, fxtd, wake_deltaxt) 894 DEALLOCATE(xtrain_fall, xtsnow_fall, xtrain_con, xtsnow_con) 895 #ifdef ISOTRAC 896 DEALLOCATE(bassin_map,boite_map) 897 #endif 898 #endif 831 899 is_initialized=.FALSE. 832 900
Note: See TracChangeset
for help on using the changeset viewer.