Changeset 2151 for LMDZ5/trunk/libf


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
Files:
7 edited

Legend:

Unmodified
Added
Removed

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

    r2142 r2151  
    370370  iphysiq = 5
    371371  CALL getin('iphysiq', iphysiq)
    372 
    373   if (mod(iphysiq, iperiod) /= 0) call abort_gcm("conf_gcm", &
    374        "iphysiq must be a multiple of iperiod", 1)
    375372
    376373  !Config  Key  = ip_ebil_dyn

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

    r2038 r2151  
    178178!#ifdef CPP_IOIPSL
    179179      CALL conf_gcm( 99, .TRUE. , clesphy0 )
     180      if (mod(iphysiq, iperiod) /= 0) call abort_gcm("conf_gcm",
     181     s "iphysiq must be a multiple of iperiod", 1)
    180182!#else
    181183!      CALL defrun( 99, .TRUE. , clesphy0 )

  • 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 )

  • 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 )

  • LMDZ5/trunk/libf/phylmd/1DUTILS.h

    r2139 r2151  
    1 #include "../dyn3d/conf_gcm.F"
     1#include "../dyn3d/conf_gcm.F90"
    22#include "../dyn3d_common/q_sat.F"
    33
Note: See TracChangeset for help on using the changeset viewer.