- 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/mod_1D_cases_read_std.F90
r4482 r4727 90 90 implicit none 91 91 92 #include"netcdf.inc"93 #include"date_cas.h"92 INCLUDE "netcdf.inc" 93 INCLUDE "date_cas.h" 94 94 95 95 INTEGER nid,rid,ierr … … 163 163 allocate(plev_cas(nlev_cas,nt_cas),plevh_cas(nlev_cas+1)) 164 164 allocate(z_cas(nlev_cas,nt_cas),zh_cas(nlev_cas+1)) 165 allocate(ap_cas(nlev_cas+1),bp_cas(n t_cas+1))165 allocate(ap_cas(nlev_cas+1),bp_cas(nlev_cas+1)) 166 166 allocate(t_cas(nlev_cas,nt_cas),q_cas(nlev_cas,nt_cas),qv_cas(nlev_cas,nt_cas),ql_cas(nlev_cas,nt_cas), & 167 167 qi_cas(nlev_cas,nt_cas),rh_cas(nlev_cas,nt_cas)) … … 331 331 use netcdf, only: nf90_get_var 332 332 implicit none 333 #include"netcdf.inc"334 #include"compar1d.h"333 INCLUDE "netcdf.inc" 334 INCLUDE "compar1d.h" 335 335 336 336 integer ntime,nlevel,k,t … … 671 671 !--------------------------------------------------------------------------------------- 672 672 673 #include"compar1d.h"674 #include"date_cas.h"673 INCLUDE "compar1d.h" 674 INCLUDE "date_cas.h" 675 675 676 676 ! inputs: … … 934 934 implicit none 935 935 936 #include"YOMCST.h"937 #include"dimensions.h"936 INCLUDE "YOMCST.h" 937 INCLUDE "dimensions.h" 938 938 939 939 !-------------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.