New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11648 for NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/TOP/trcnam.F90 – NEMO

Ignore:
Timestamp:
2019-10-03T17:57:40+02:00 (4 years 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/TOP/trcnam.F90

    r11624 r11648  
    108108      IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 
    109109      ! 
    110       CALL load_nml( numnat_ref, 'namelist_top_ref' , numout, .FALSE. ) 
    111       CALL load_nml( numnat_cfg, 'namelist_top_cfg' , numout, .FALSE. ) 
     110      CALL load_nml( numnat_ref, 'namelist_top_ref' , numout, lwm ) 
     111      CALL load_nml( numnat_cfg, 'namelist_top_cfg' , numout, lwm ) 
    112112      IF(lwm) CALL ctl_opn( numont, 'output.namelist.top', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., 1 ) 
    113113      ! 
     
    224224      IF( ll_cfc .OR. ln_c14 ) THEN 
    225225        !                             ! Open namelist files 
    226         CALL load_nml( numtrc_ref, 'namelist_trc_ref' , numout, .FALSE. ) 
    227         CALL load_nml( numtrc_cfg, 'namelist_trc_cfg' , numout, .FALSE. ) 
     226        CALL load_nml( numtrc_ref, 'namelist_trc_ref' , numout, lwm ) 
     227        CALL load_nml( numtrc_cfg, 'namelist_trc_cfg' , numout, lwm ) 
    228228        IF(lwm) CALL ctl_opn( numonr, 'output.namelist.trc', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
    229229        ! 
Note: See TracChangeset for help on using the changeset viewer.