- Timestamp:
- Oct 19, 2023, 4:02:57 PM (10 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/old_1DUTILS_read_interp.h
r4482 r4727 150 150 implicit none 151 151 152 #include"netcdf.inc"152 INCLUDE "netcdf.inc" 153 153 154 154 integer ntime,nlevel … … 495 495 496 496 implicit none 497 #include"netcdf.inc"497 INCLUDE "netcdf.inc" 498 498 integer nid,ttm,llm 499 499 real*8 time(ttm) … … 545 545 implicit none 546 546 547 #include"dimensions.h"547 INCLUDE "dimensions.h" 548 548 549 549 !------------------------------------------------------------------------- … … 659 659 implicit none 660 660 661 #include"dimensions.h"661 INCLUDE "dimensions.h" 662 662 663 663 !------------------------------------------------------------------------- … … 781 781 ! Read RICO forcing data 782 782 !------------------------------------------------------------------------- 783 #include"dimensions.h"783 INCLUDE "dimensions.h" 784 784 785 785 … … 1057 1057 implicit none 1058 1058 1059 #include"dimensions.h"1059 INCLUDE "dimensions.h" 1060 1060 1061 1061 !------------------------------------------------------------------------- … … 1179 1179 implicit none 1180 1180 1181 #include"dimensions.h"1181 INCLUDE "dimensions.h" 1182 1182 1183 1183 !------------------------------------------------------------------------- … … 1338 1338 implicit none 1339 1339 1340 #include"dimensions.h"1340 INCLUDE "dimensions.h" 1341 1341 1342 1342 !------------------------------------------------------------------------- … … 1561 1561 !--------------------------------------------------------------------------------------- 1562 1562 1563 #include"compar1d.h"1563 INCLUDE "compar1d.h" 1564 1564 1565 1565 ! inputs: … … 1703 1703 !--------------------------------------------------------------------------------------- 1704 1704 1705 #include"compar1d.h"1705 INCLUDE "compar1d.h" 1706 1706 1707 1707 ! inputs: … … 1816 1816 !--------------------------------------------------------------------------------------- 1817 1817 1818 #include"compar1d.h"1818 INCLUDE "compar1d.h" 1819 1819 1820 1820 ! inputs: … … 2173 2173 implicit none 2174 2174 2175 #include"netcdf.inc"2175 INCLUDE "netcdf.inc" 2176 2176 2177 2177 integer ntime,nlevel … … 2385 2385 implicit none 2386 2386 2387 #include"netcdf.inc"2388 #include"YOMCST.h"2387 INCLUDE "netcdf.inc" 2388 INCLUDE "YOMCST.h" 2389 2389 2390 2390 integer ntime,nlevel … … 2719 2719 implicit none 2720 2720 2721 #include"netcdf.inc"2721 INCLUDE "netcdf.inc" 2722 2722 2723 2723 integer ntime,nlevel,nsol … … 2960 2960 2961 2961 parameter (ncm_1=49180) 2962 #include"YOMCST.h"2962 INCLUDE "YOMCST.h" 2963 2963 2964 2964 real albsfc(ncm_1), albsfc_w(ncm_1) … … 3064 3064 SUBROUTINE read_rtmip(nlev_rtmip,play,plev,t,h2o,o3) 3065 3065 3066 #include"YOMCST.h"3066 INCLUDE "YOMCST.h" 3067 3067 3068 3068 real t(nlev_rtmip), pt(nlev_rtmip),pb(nlev_rtmip),h2o(nlev_rtmip), o3(nlev_rtmip)
Note: See TracChangeset
for help on using the changeset viewer.