Ignore:
Timestamp:
Nov 19, 2014, 1:13:31 AM (10 years ago)
Author:
fhourdin
Message:

Corrections pour le 1D.
Le test recemment introduit sur le fait que iphysiq est multiple
de iperiod est deplace de conf_gcm.F90 vers gcm.F pour éviter
qu'il ne soit actif en 1D.
Le include ../dyn3d/conf_gcm.F est remplace par ../dyn3d/conf_gcm.F90
dans 1DUTILS.h

Bug fixing for 1D

Location:
LMDZ5/trunk/libf/dyn3dpar
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3dpar/conf_gcm.F90

    r2142 r2151  
    399399  iphysiq = 5
    400400  CALL getin('iphysiq', iphysiq)
    401 
    402   if (mod(iphysiq, iperiod) /= 0) call abort_gcm("conf_gcm", &
    403        "iphysiq must be a multiple of iperiod", 1)
    404401
    405402  !Config  Key  = ip_ebil_dyn

  • LMDZ5/trunk/libf/dyn3dpar/gcm.F

    r2038 r2151  
    175175!#ifdef CPP_IOIPSL
    176176      CALL conf_gcm( 99, .TRUE. , clesphy0 )
     177      if (mod(iphysiq, iperiod) /= 0) call abort_gcm("conf_gcm",
     178     s "iphysiq must be a multiple of iperiod", 1)
    177179!#else
    178180!      CALL defrun( 99, .TRUE. , clesphy0 )
Note: See TracChangeset for help on using the changeset viewer.