Ignore:
Timestamp:
Aug 31, 2017, 2:08:16 PM (7 years ago)
Author:
fhourdin
Message:

Modification pour le cas ayotte au format standard.
+ correction pour le cas forcing_les (correspondant a forcing_type=0)
partage par ayotte et rce_oce_les.
Dans la nouvelle version, ce dernier correspond a forcing_type=-1
Attention aux problemes de retrocomptabilite.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90

    r2933 r2983  
    359359!             Radiation to be switched off
    360360!
    361       if (forcing_type .eq.0) THEN
     361      if (forcing_type <=0) THEN
    362362       forcing_les = .true.
    363363      elseif (forcing_type .eq.1) THEN
     
    412412       heure_ini_cas=0.
    413413       pdt_cas=1800.         ! forcing frequency
     414      elseif (forcing_type .eq.106) THEN ! ayotte_24SC starts 6-11-1992 0h
     415       forcing_case2 = .true.
     416       year_ini_cas=1992
     417       mth_ini_cas=11
     418       day_deb=6
     419       heure_ini_cas=10.
     420       pdt_cas=86400.        ! forcing frequency
    414421      elseif (forcing_type .eq.40) THEN
    415422       forcing_GCSSold = .true.
     
    10841091       endif
    10851092
    1086 !CRio:Attention modif spécifique cas de Caroline
    1087       if (forcing_les) then
     1093!CRio:Attention modif sp??cifique cas de Caroline
     1094      if (forcing_type==-1) then
    10881095         fcoriolis=0.
    10891096!Nudging
Note: See TracChangeset for help on using the changeset viewer.