Changeset 2310


Ignore:
Timestamp:
Jun 24, 2015, 12:04:31 PM (9 years ago)
Author:
Laurent Fairhead
Message:

Modifications for 1d model
MPL

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
  • LMDZ5/trunk/libf/phylmd/dyn1d/1D_read_forc_cases.h

    • Property svn:keywords set to Id
  • LMDZ5/trunk/libf/phylmd/dyn1d/1Dconv.h

    • Property svn:keywords set to Id
    r2239 r2310  
     1!
     2! $Id$
     3!
    14        subroutine get_uvd(itap,dtime,file_forctl,file_fordat,                  &
    25     &       ht,hq,hw,hu,hv,hthturb,hqturb,                                     &
  • LMDZ5/trunk/libf/phylmd/dyn1d/mod_1D_cases_read.F90

    • Property svn:keywords set to Id
    r2307 r2310  
    948948        print*,'Check time',day1,day_ini_cas,day_ini_cas+1
    949949
    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)
    972954      if ((forcing_type.eq.10).and.(1.eq.0)) then
    973955! Check that initial day of the simulation consistent with AMMA case:
Note: See TracChangeset for help on using the changeset viewer.