Changeset 12641 for NEMO/trunk/src/OFF


Ignore:
Timestamp:
2020-04-01T14:33:59+02:00 (11 months ago)
Author:
smasson
Message:

trunk: numnul with Agrif, see #2430

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OFF/nemogcm.F90

    r12377 r12641  
    209209      IF( lwm )   CALL ctl_opn(     numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    210210      ! open /dev/null file to be able to supress output write easily 
     211      IF( Agrif_Root() ) THEN 
    211212                  CALL ctl_opn(     numnul,           '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
     213#ifdef key_agrif 
     214      ELSE 
     215                  numnul = Agrif_Parent(numnul)    
     216#endif 
     217      ENDIF 
    212218      ! 
    213219      !                             !--------------------! 
Note: See TracChangeset for help on using the changeset viewer.