Ignore:
Timestamp:
2019-10-03T17:57:40+02:00 (17 months ago)
Author:
acc
Message:

Branch 2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles. Introduce broadcast of namelist character buffer from single reader to all others. This completes the second stage but there is still an issue with AGRIF that may scupper this whole concept

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/SAS/nemogcm.F90

    r11624 r11648  
    232232         IF( lwm )   CALL ctl_opn(     numout,               'sas.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    233233         ! open reference and configuration namelist files 
    234                      CALL load_nml( numnam_ref,        'namelist_sas_ref',                                           -1, .FALSE. ) 
    235                      CALL load_nml( numnam_cfg,        'namelist_sas_cfg',                                           -1, .FALSE. ) 
     234                     CALL load_nml( numnam_ref,        'namelist_sas_ref',                                           -1, lwm ) 
     235                     CALL load_nml( numnam_cfg,        'namelist_sas_cfg',                                           -1, lwm ) 
    236236         IF( lwm )   CALL ctl_opn(      numond, 'output.namelist_sas.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    237237      ELSE 
    238238         IF( lwm )   CALL ctl_opn(      numout,            'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    239239         ! open reference and configuration namelist files 
    240                      CALL load_nml( numnam_ref,            'namelist_ref',                                           -1, .FALSE. ) 
    241                      CALL load_nml( numnam_cfg,            'namelist_cfg',                                           -1, .FALSE. ) 
     240                     CALL load_nml( numnam_ref,            'namelist_ref',                                           -1, lwm ) 
     241                     CALL load_nml( numnam_cfg,            'namelist_cfg',                                           -1, lwm ) 
    242242         IF( lwm )   CALL ctl_opn(      numond,     'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    243243      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.