Ignore:
Timestamp:
Mar 1, 2023, 6:22:39 PM (19 months ago)
Author:
Laurent Fairhead
Message:

Merged trunk revisions from 4127 to 4443 (HEAD) into branch

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Portage_acc/libf/dyn3d/conf_gcm.F90

    r4100 r4446  
    599599     type_trac = 'lmdz'
    600600     CALL getin('type_trac',type_trac)
    601 
    602      !Config  Key  = config_inca
    603      !Config  Desc = Choix de configuration de INCA
    604      !Config  Def  = none
    605      !Config  Help = Choix de configuration de INCA :
    606      !Config         'none' = sans INCA
    607      !Config         'chem' = INCA avec calcul de chemie
    608      !Config         'aero' = INCA avec calcul des aerosols
    609      config_inca = 'none'
    610      CALL getin('config_inca',config_inca)
    611601
    612602     !Config  Key  = ok_dynzon
    … …  
    672662     write(lunout,*)' offline = ', offline
    673663     write(lunout,*)' type_trac = ', type_trac
    674      write(lunout,*)' config_inca = ', config_inca
    675664     write(lunout,*)' ok_dynzon = ', ok_dynzon
    676665     write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins
    … …  
    795784     type_trac = 'lmdz'
    796785     CALL getin('type_trac',type_trac)
    797 
    798      !Config  Key  = config_inca
    799      !Config  Desc = Choix de configuration de INCA
    800      !Config  Def  = none
    801      !Config  Help = Choix de configuration de INCA :
    802      !Config         'none' = sans INCA
    803      !Config         'chem' = INCA avec calcul de chemie
    804      !Config         'aero' = INCA avec calcul des aerosols
    805      config_inca = 'none'
    806      CALL getin('config_inca',config_inca)
    807786
    808787     !Config  Key  = ok_dynzon
    … …  
    912891     write(lunout,*)' offline = ', offline
    913892     write(lunout,*)' type_trac = ', type_trac
    914      write(lunout,*)' config_inca = ', config_inca
    915893     write(lunout,*)' ok_dynzon = ', ok_dynzon
    916894     write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins
Note: See TracChangeset for help on using the changeset viewer.