Ignore:
Timestamp:
2020-07-03T14:42:49+02:00 (3 months ago)
Author:
dford
Message:

Update NEMO-FABM coupler for compatability with FABM v1.0.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r10162 r13241  
    325325      sn_tracer(:)%llcbc = .FALSE. 
    326326      sn_tracer(:)%llcbc = .FALSE. 
     327      sn_tracer(:)%clsname = 'NONAME' 
    327328#endif 
    328329 
     
    335336902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist', lwp ) 
    336337      IF(lwm) WRITE ( numont, namtrc ) 
     338 
     339      ! +++>>> FABM 
     340      if (lk_fabm) CALL trc_nam_fabm_override(sn_tracer) 
     341      ! FABM <<<+++ 
    337342 
    338343      DO jn = 1, jptra 
     
    354359      END DO 
    355360      
    356       ! +++>>> FABM 
    357       if (lk_fabm) CALL trc_nam_fabm_override 
    358       ! FABM <<<+++ 
    359361    END SUBROUTINE trc_nam_trc 
    360362 
     
    380382      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    381383      !!--------------------------------------------------------------------- 
    382  
    383       IF(lwp) WRITE(numout,*)  
    384       IF(lwp) WRITE(numout,*) 'trc_nam_dia : read the passive tracer diagnostics options' 
    385       IF(lwp) WRITE(numout,*) '~~~~~~~' 
    386384 
    387385      IF(lwp) WRITE(numout,*) 
Note: See TracChangeset for help on using the changeset viewer.