Changeset 4727 for LMDZ6/branches/LMDZ_ECRad/libf/phylmd/dyn1d/scm.F90
- Timestamp:
- Oct 19, 2023, 4:02:57 PM (11 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/dyn1d/scm.F90
r4482 r4727 9 9 ftsol, beta_aridity, pbl_tke, pctsrf, radsol, rain_fall, snow_fall, ratqs, & 10 10 rnebcon, rugoro, sig1, w01, solaire_etat0, sollw, sollwdown, & 11 solsw, solswfdiff, t_ancien, q_ancien, u_ancien, v_ancien, &11 solsw, solswfdiff, t_ancien, q_ancien, u_ancien, v_ancien, rneb_ancien, & 12 12 wake_delta_pbl_TKE, delta_tsurf, wake_fip, wake_pe, & 13 13 wake_deltaq, wake_deltat, wake_s, wake_dens, & … … 43 43 44 44 implicit none 45 #include"dimensions.h"46 #include"YOMCST.h"47 !! #include"control.h"48 #include"clesphys.h"49 #include"dimsoil.h"50 ! #include"indicesol.h"51 52 #include"compar1d.h"53 #include"flux_arp.h"54 #include"date_cas.h"55 #include"tsoilnudge.h"56 #include"fcg_gcssold.h"57 #include"compbl.h"45 INCLUDE "dimensions.h" 46 INCLUDE "YOMCST.h" 47 !! INCLUDE "control.h" 48 INCLUDE "clesphys.h" 49 INCLUDE "dimsoil.h" 50 ! INCLUDE "indicesol.h" 51 52 INCLUDE "compar1d.h" 53 INCLUDE "flux_arp.h" 54 INCLUDE "date_cas.h" 55 INCLUDE "tsoilnudge.h" 56 INCLUDE "fcg_gcssold.h" 57 INCLUDE "compbl.h" 58 58 59 59 !===================================================================== … … 129 129 !===================================================================== 130 130 ! 131 #include"1D_decl_cases.h"131 INCLUDE "1D_decl_cases.h" 132 132 ! 133 133 !--------------------------------------------------------------------- … … 489 489 !===================================================================== 490 490 491 #include"1D_read_forc_cases.h"491 INCLUDE "1D_read_forc_cases.h" 492 492 print*,'A d_t_adv ',d_t_adv(1:20)*86400 493 493 … … 678 678 u_ancien(1,:)=u(:) 679 679 v_ancien(1,:)=v(:) 680 rneb_ancien(1,:)=0. 680 681 681 682 u10m=0. … … 703 704 !------------------------------------------------------------------------ 704 705 !Al1 =============== restart option ====================================== 706 iflag_physiq=0 707 call getin('iflag_physiq',iflag_physiq) 708 705 709 if (.not.restart) then 706 710 iflag_pbl = 5 … … 803 807 !--------------------------------------------------------------------- 804 808 805 #include"1D_interp_cases.h"809 INCLUDE "1D_interp_cases.h" 806 810 807 811 !---------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.