Changeset 13034


Ignore:
Timestamp:
2020-06-04T10:07:51+02:00 (4 months ago)
Author:
andmirek
Message:

Ticket #2462 update test branch with changes from dev branch

Location:
NEMO/branches/2020/test_12905_xios_restart/src
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/test_12905_xios_restart/src/ICE/icerst.F90

    r12969 r13034  
    214214 
    215215      lrixios = lrxios.AND.lxios_sini 
    216       IF(lwp) write(numout, *) 'USE XIOS to read restart: ', lrixios 
    217       IF(lwp) CALL FLUSH(numout) 
    218216      IF( lrixios) THEN 
    219217          crixios_context = 'si3_rst' 
  • NEMO/branches/2020/test_12905_xios_restart/src/OCE/IOM/iom.F90

    r13023 r13034  
    145145      ALLOCATE( zt_bnds(2,jpk), zw_bnds(2,jpk) ) 
    146146      ! 
    147       IF(lwp) write(numout, *) 'TEST IOM_INIT: ', TRIM(cdname),' File: ', TRIM(fname) 
    148       IF(lwp) CALL FLUSH(numout) 
    149147      clname = cdname 
    150148      IF( TRIM(Agrif_CFixed()) /= '0' )   clname = TRIM(Agrif_CFixed())//"_"//TRIM(cdname) 
     
    274272      ! 
    275273      ! automatic definitions of some of the xml attributs 
    276       IF(lwp) write(numout, *) 'TEST IOM_INIT: ', TRIM(cdname), TRIM(cdname) == TRIM(crixios_context) 
    277       IF(lwp) CALL FLUSH(numout) 
    278274      IF(llrstr) THEN 
    279275          IF(PRESENT(idfp)) THEN 
     
    319315   LOGICAL :: llrstw 
    320316 
    321       IF(lwp) write(numout, *) 'XIOS CLOSE definitions for: ', TRIM(cdname) 
    322317      llrstw = .FALSE. 
    323318      IF(PRESENT(cdname)) THEN 
     
    378373        clinfo = '          iom_set_vars_active, file: '//TRIM(cdfname) 
    379374 
    380         IF(lwp) write(numout, *) TRIM(clinfo) 
    381         IF(lwp) CALL FLUSH(numout) 
    382375!set name of the restart file and enable available fields 
    383376        CALL xios_get_handle("file_definition", filegroup_hdl ) 
     
    451444!set name of the restart file and enable available fields 
    452445        IF(lwp) WRITE(numout,*) 'Setting restart filename (for XIOS write) to: ',cdrst_file 
    453         IF(lwp) CALL FLUSH(numout) 
    454446        CALL xios_get_handle("file_definition", filegroup_hdl ) 
    455447        CALL xios_add_child(filegroup_hdl, file_hdl, 'wrestart') 
     
    494486 
    495487        IF(PRESENT(rd3)) THEN 
    496                IF(lwp) write(numout, *) TRIM(sdfield), ' 3D ', size(rd3,3) 
    497                IF(lwp) CALL FLUSH(numout) 
    498488               CALL xios_set_attr (field_hdl, enabled = .TRUE., name = TRIM(sdfield),   & 
    499489                            domain_ref="grid_N", axis_ref=TRIM(iom_axis(size(rd3, 3))), & 
     
    502492 
    503493        IF(PRESENT(rd2)) THEN 
    504                IF(lwp) write(numout, *) TRIM(sdfield), ' 2D' 
    505                IF(lwp) CALL FLUSH(numout) 
    506494               CALL xios_set_attr (field_hdl, enabled = .TRUE., name = TRIM(sdfield), & 
    507495                                   domain_ref="grid_N", prec = 8, operation = "instant")  
     
    509497 
    510498        IF(PRESENT(rd1)) THEN 
    511                IF(lwp) write(numout, *) TRIM(sdfield), ' 1D ', size(rd1,1) 
    512                IF(lwp) CALL FLUSH(numout) 
    513499               CALL xios_set_attr (field_hdl, enabled = .TRUE., name = TRIM(sdfield), & 
    514500                                   axis_ref=TRIM(iom_axis(size(rd1, 1))), prec = 8, operation = "instant") 
     
    516502 
    517503        IF(PRESENT(rd0)) THEN 
    518                IF(lwp) write(numout, *) TRIM(sdfield), ' 0D' 
    519                IF(lwp) CALL FLUSH(numout) 
    520504               CALL xios_set_attr (field_hdl, enabled = .TRUE., name = TRIM(sdfield), & 
    521505                                         scalar_ref = "grid_scalar", prec = 8, operation = "instant") 
     
    18941878      !!---------------------------------------------------------------------- 
    18951879      clname = cdname 
    1896       IF(lwp) write(numout, *) 'Finalize: ', TRIM(cdname) 
    18971880      IF( TRIM(Agrif_CFixed()) .NE. '0' ) clname = TRIM(Agrif_CFixed())//"_"//clname  
    18981881      IF( xios_is_valid_context(clname) ) THEN 
Note: See TracChangeset for help on using the changeset viewer.