Changeset 12641 for NEMO/trunk/src/SAO


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/SAO/nemogcm.F90

    r12377 r12641  
    2929   USE sao_intp 
    3030   ! 
     31   USE in_out_manager ! I/O manager 
    3132   USE lib_mpp        ! distributed memory computing 
    3233   USE mppini         ! shared/distributed memory setting (mpp_init routine) 
     
    139140      IF( lwm )   CALL ctl_opn(     numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    140141      ! open /dev/null file to be able to supress output write easily 
     142      IF( Agrif_Root() ) THEN 
    141143                  CALL ctl_opn(     numnul,           '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
     144#ifdef key_agrif 
     145      ELSE 
     146                  numnul = Agrif_Parent(numnul)    
     147#endif 
     148      ENDIF 
    142149      ! 
    143150      !                             !--------------------! 
Note: See TracChangeset for help on using the changeset viewer.