Changeset 2310
- Timestamp:
- Jun 24, 2015, 12:04:31 PM (9 years ago)
- Location:
- LMDZ5/trunk/libf/phylmd/dyn1d
- Files:
-
- 3 edited
- 2 moved
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/dyn1d/1D_interp_cases.h
-
Property
svn:keywords
set to
Id
-
Property
svn:keywords
set to
-
LMDZ5/trunk/libf/phylmd/dyn1d/1D_read_forc_cases.h
-
Property
svn:keywords
set to
Id
-
Property
svn:keywords
set to
-
LMDZ5/trunk/libf/phylmd/dyn1d/1Dconv.h
-
Property
svn:keywords
set to
Id
r2239 r2310 1 ! 2 ! $Id$ 3 ! 1 4 subroutine get_uvd(itap,dtime,file_forctl,file_fordat, & 2 5 & ht,hq,hw,hu,hv,hthturb,hqturb, & -
Property
svn:keywords
set to
-
LMDZ5/trunk/libf/phylmd/dyn1d/mod_1D_cases_read.F90
-
Property
svn:keywords
set to
Id
r2307 r2310 948 948 print*,'Check time',day1,day_ini_cas,day_ini_cas+1 949 949 950 if ((forcing_type.eq.10).and.(1.eq.1)) then 951 ! Check that initial day of the simulation consistent with the case: 952 if (annee_ref.ne.1969) then 953 ! print*,'Pour CINDY, annee_ref doit etre 2011' 954 print*,'Pour BOMEX, annee_ref doit etre 1969' 955 print*,'Changer annee_ref dans run.def' 956 stop 957 endif 958 if (annee_ref.eq.1969 .and. day1.lt.day_ini_cas) then 959 ! print*,'CINDY a debute le 1 octobre 2011',day1,day_ini_cas 960 print*,'BOMEX a debute le 24 juin 1969',day1,day_ini_cas 961 print*,'Changer dayref dans run.def' 962 stop 963 endif 964 if (annee_ref.eq.1969 .and. day1.gt.day_ini_cas+1) then 965 ! print*,'CINDY a fini le 31 decembre' 966 print*,'BOMEX a fini le 24 juin' 967 print*,'Changer dayref ou nday dans run.def',day1,day_ini_cas+90 968 stop 969 endif 970 endif 971 !CR:ATTENTION TEST AMMA 950 ! On teste si la date du cas AMMA est correcte. 951 ! C est pour memoire car en fait les fichiers .def 952 ! sont censes etre corrects. 953 ! A supprimer a terme (MPL 20150623) 972 954 if ((forcing_type.eq.10).and.(1.eq.0)) then 973 955 ! Check that initial day of the simulation consistent with AMMA case: -
Property
svn:keywords
set to
Note: See TracChangeset
for help on using the changeset viewer.