- Timestamp:
- Mar 29, 2023, 3:14:27 PM (18 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/1D_read_forc_cases.h
r4104 r4482 24 24 ! & ,year_ini_cas,day_ju_ini_cas,nt_cas,pdt_cas,nlev_cas & 25 25 & ,nt_cas,nlev_cas & 26 & ,ts_cas, ps_cas,plev_cas,t_cas,th_cas,thv_cas,thl_cas,qv_cas,ql_cas,qi_cas &26 & ,ts_cas,tskin_cas,ps_cas,plev_cas,t_cas,th_cas,thv_cas,thl_cas,qv_cas,ql_cas,qi_cas & 27 27 & ,u_cas,v_cas,ug_cas,vg_cas & 28 28 & ,temp_nudg_cas,qv_nudg_cas,u_nudg_cas,v_nudg_cas & … … 33 33 & ,uw_cas,vw_cas,q1_cas,q2_cas,tkes_cas & 34 34 ! 35 & ,ts_prof_cas, ps_prof_cas,plev_prof_cas,t_prof_cas,theta_prof_cas,thv_prof_cas &35 & ,ts_prof_cas,tskin_prof_cas,ps_prof_cas,plev_prof_cas,t_prof_cas,theta_prof_cas,thv_prof_cas & 36 36 & ,thl_prof_cas,qv_prof_cas,ql_prof_cas,qi_prof_cas & 37 37 & ,u_prof_cas,v_prof_cas,ug_prof_cas,vg_prof_cas & … … 73 73 74 74 ! initial and boundary conditions : 75 ! tsurf = ts_prof_cas76 75 psurf = ps_prof_cas 77 !EV tg instead of ts_cur 78 tg = ts_prof_cas 79 print*, 'tg=', tg 76 if (tskin_prof_cas .NE. 0.) THEN 77 tsurf=tskin_prof_cas 78 endif 79 80 tg = ts_prof_cas 81 if ((tg .eq. 0.) .and. (tskin_prof_cas .NE. 0.)) THEN 82 tg=tskin_prof_cas 83 endif 84 85 80 86 81 87 do l = 1, llm … … 83 89 q(l,1) = qv_mod_cas(l) 84 90 q(l,2) = ql_mod_cas(l) 91 q(l,3) = qi_mod_cas(l) 85 92 u(l) = u_mod_cas(l) 86 93 ug(l)= ug_mod_cas(l)
Note: See TracChangeset
for help on using the changeset viewer.