Ignore:
Timestamp:
2020-04-01T14:27:05+02:00 (14 months ago)
Author:
smasson
Message:

r4.0-HEAD: numnul with Agrif, see #2378

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/r4.0/r4.0-HEAD/src/SAS/nemogcm.F90

    r11536 r12640  
    3333   USE bdydta         ! open boundary cond. setting   (bdy_dta_init routine). mandatory for sea-ice 
    3434   ! 
     35   USE in_out_manager ! I/O manager 
    3536   USE lib_mpp        ! distributed memory computing 
    3637   USE mppini         ! shared/distributed memory setting (mpp_init routine) 
     
    243244      ENDIF 
    244245      ! open /dev/null file to be able to supress output write easily 
     246      IF( Agrif_Root() ) THEN 
    245247                     CALL ctl_opn(     numnul,               '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
     248#ifdef key_agrif 
     249      ELSE 
     250                     numnul = Agrif_Parent(numnul) 
     251#endif 
     252      ENDIF 
    246253      ! 
    247254      !                             !--------------------! 
Note: See TracChangeset for help on using the changeset viewer.