- Timestamp:
- Jul 24, 2024, 1:17:08 PM (3 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/old_1DUTILS_read_interp.h
r5105 r5113 3 3 & ,ts_toga,plev_toga,t_toga,q_toga,u_toga,v_toga,w_toga & 4 4 & ,ht_toga,vt_toga,hq_toga,vq_toga) 5 implicit none5 IMPLICIT NONE 6 6 7 7 !------------------------------------------------------------------------- … … 65 65 !------------------------------------------------------------------------- 66 66 SUBROUTINE read_sandu(fich_sandu,nlev_sandu,nt_sandu,ts_sandu) 67 implicit none67 IMPLICIT NONE 68 68 69 69 !------------------------------------------------------------------------- … … 102 102 SUBROUTINE read_astex(fich_astex,nlev_astex,nt_astex,div_astex, & 103 103 & ts_astex,ug_astex,vg_astex,ufa_astex,vfa_astex) 104 implicit none104 IMPLICIT NONE 105 105 106 106 !------------------------------------------------------------------------- … … 150 150 151 151 152 implicit none152 IMPLICIT NONE 153 153 154 154 integer ntime,nlevel … … 495 495 nf90_inq_dimid,nf90_inquire_dimension 496 496 497 implicit none497 IMPLICIT NONE 498 498 integer nid,ttm,llm 499 499 real*8 time(ttm) … … 543 543 & ,omega_mod,o3mmr_mod,mxcalc) 544 544 545 implicit none545 IMPLICIT NONE 546 546 547 547 INCLUDE "dimensions.h" … … 657 657 & ,tke_mod,o3mmr_mod,mxcalc) 658 658 659 implicit none659 IMPLICIT NONE 660 660 661 661 INCLUDE "dimensions.h" … … 776 776 & ,ts_rico,t_rico,q_rico,u_rico,v_rico,w_rico & 777 777 & ,dth_dyn,dqh_dyn) 778 implicit none778 IMPLICIT NONE 779 779 780 780 !------------------------------------------------------------------------- … … 939 939 & ,year_ini_sandu,day_ini_sandu,nt_sandu,dt_sandu & 940 940 & ,nlev_sandu,ts_sandu,ts_prof) 941 implicit none941 IMPLICIT NONE 942 942 943 943 !--------------------------------------------------------------------------------------- … … 1014 1014 SUBROUTINE read_armcu(fich_armcu,nlev_armcu,nt_armcu, & 1015 1015 & sens,flat,adv_theta,rad_theta,adv_qt) 1016 implicit none1016 IMPLICIT NONE 1017 1017 1018 1018 !------------------------------------------------------------------------- … … 1055 1055 & ,ht_mod,vt_mod,hq_mod,vq_mod,mxcalc) 1056 1056 1057 implicit none1057 IMPLICIT NONE 1058 1058 1059 1059 INCLUDE "dimensions.h" … … 1177 1177 & ,dt_mod_cas,ht_mod_cas,vt_mod_cas,dtrad_mod_cas,dq_mod_cas,hq_mod_cas,vq_mod_cas,mxcalc) 1178 1178 1179 implicit none1179 IMPLICIT NONE 1180 1180 1181 1181 INCLUDE "dimensions.h" … … 1336 1336 & ,ht_mod,hq_mod,hu_mod,hv_mod,w_mod,omega_mod,mxcalc) 1337 1337 1338 implicit none1338 IMPLICIT NONE 1339 1339 1340 1340 INCLUDE "dimensions.h" … … 1458 1458 & ,ufa_astex,vfa_astex,div_prof,ts_prof,ug_prof,vg_prof & 1459 1459 & ,ufa_prof,vfa_prof) 1460 implicit none1460 IMPLICIT NONE 1461 1461 1462 1462 !--------------------------------------------------------------------------------------- … … 1550 1550 & ,ts_prof,plev_prof,t_prof,q_prof,u_prof,v_prof,w_prof & 1551 1551 & ,ht_prof,vt_prof,hq_prof,vq_prof) 1552 implicit none1552 IMPLICIT NONE 1553 1553 1554 1554 !--------------------------------------------------------------------------------------- … … 1692 1692 & ,ustar_prof,psurf_prof,ug_prof,vg_prof & 1693 1693 & ,ht_prof,hq_prof,hu_prof,hv_prof,w_prof,omega_prof) 1694 implicit none1694 IMPLICIT NONE 1695 1695 1696 1696 !--------------------------------------------------------------------------------------- … … 1805 1805 & ,ug_gabls4,vg_gabls4,ht_gabls4,hq_gabls4,tg_gabls4 & 1806 1806 & ,ug_prof,vg_prof,ht_prof,hq_prof,tg_prof) 1807 implicit none1807 IMPLICIT NONE 1808 1808 1809 1809 !--------------------------------------------------------------------------------------- … … 1892 1892 & ,nlev_armcu,fs_armcu,fl_armcu,at_armcu,rt_armcu & 1893 1893 & ,aqt_armcu,fs_prof,fl_prof,at_prof,rt_prof,aqt_prof) 1894 implicit none1894 IMPLICIT NONE 1895 1895 1896 1896 !--------------------------------------------------------------------------------------- … … 1972 1972 & wfls,dqtdxls,dqtdyls,dqtdtls, & 1973 1973 & thlpcar,tracer,nt1,nt2) 1974 implicit none1974 IMPLICIT NONE 1975 1975 1976 1976 integer nlev_max,kmax,kmax2,ntrac … … 2045 2045 & thlprof,qprof,uprof,vprof,wprof,omega,o3mmr) 2046 2046 !====================================================================== 2047 implicit none2047 IMPLICIT NONE 2048 2048 2049 2049 integer nlev_max,kmax … … 2077 2077 & thlprof,qvprof,qlprof,qtprof,uprof,vprof,wprof,tkeprof,o3mmr) 2078 2078 !====================================================================== 2079 implicit none2079 IMPLICIT NONE 2080 2080 2081 2081 integer nlev_max,kmax … … 2111 2111 & vprof,thetaprof,tprof,qvprof,rvprof,aprof,bprof) 2112 2112 !====================================================================== 2113 implicit none2113 IMPLICIT NONE 2114 2114 2115 2115 integer nlev_max,kmax … … 2172 2172 use netcdf, ONLY: nf90_open,nf90_nowrite,nf90_noerr,nf90_strerror,nf90_inq_varid,nf90_get_var,& 2173 2173 nf90_inq_dimid,nf90_inquire_dimension 2174 implicit none2174 IMPLICIT NONE 2175 2175 2176 2176 integer ntime,nlevel … … 2383 2383 nf90_inq_dimid,nf90_inquire_dimension 2384 2384 2385 implicit none2385 IMPLICIT NONE 2386 2386 2387 2387 INCLUDE "YOMCST.h" … … 2717 2717 nf90_inq_dimid,nf90_inquire_dimension 2718 2718 2719 implicit none2719 IMPLICIT NONE 2720 2720 2721 2721 integer ntime,nlevel,nsol
Note: See TracChangeset
for help on using the changeset viewer.
