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/dyn3dmem
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

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

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

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