Changeset 13033

Timestamp:

2020-06-03T17:48:20+02:00 (5 years ago)

Author:

andmirek

Message:

Ticket #2462 remove debug prints

Location:

NEMO/branches/2020/dev_12905_xios_restart/src

Files:

• ICE/icerst.F90 (modified) (1 diff)
• OCE/IOM/iom.F90 (modified) (10 diffs)

NEMO/branches/2020/dev_12905_xios_restart/src/ICE/icerst.F90

@@ -214 +214 @@
 
       lrixios = lrxios.AND.lxios_sini
-      IF(lwp) write(numout, *) 'USE XIOS to read restart: ', lrixios
-      IF(lwp) CALL FLUSH(numout)
       IF( lrixios) THEN
           crixios_context = 'si3_rst'

NEMO/branches/2020/dev_12905_xios_restart/src/OCE/IOM/iom.F90

@@ -145 +145 @@
       ALLOCATE( zt_bnds(2,jpk), zw_bnds(2,jpk) )
       !
-      IF(lwp) write(numout, *) 'TEST IOM_INIT: ', TRIM(cdname),' File: ', TRIM(fname)
-      IF(lwp) CALL FLUSH(numout)
       clname = cdname
       IF( TRIM(Agrif_CFixed()) /= '0' )   clname = TRIM(Agrif_CFixed())//"_"//TRIM(cdname)
@@ -274 +272 @@
       !
       ! automatic definitions of some of the xml attributs
-      IF(lwp) write(numout, *) 'TEST IOM_INIT: ', TRIM(cdname), TRIM(cdname) == TRIM(crixios_context)
-      IF(lwp) CALL FLUSH(numout)
       IF(llrstr) THEN
           IF(PRESENT(idfp)) THEN
@@ -319 +315 @@
    LOGICAL :: llrstw
 
-      IF(lwp) write(numout, *) 'XIOS CLOSE definitions for: ', TRIM(cdname)
       llrstw = .FALSE.
       IF(PRESENT(cdname)) THEN
@@ -378 +373 @@
         clinfo = '          iom_set_vars_active, file: '//TRIM(cdfname)
 
-        IF(lwp) write(numout, *) TRIM(clinfo)
-        IF(lwp) CALL FLUSH(numout)
 !set name of the restart file and enable available fields
         CALL xios_get_handle("file_definition", filegroup_hdl )
@@ -451 +444 @@
 !set name of the restart file and enable available fields
         IF(lwp) WRITE(numout,*) 'Setting restart filename (for XIOS write) to: ',cdrst_file
-        IF(lwp) CALL FLUSH(numout)
         CALL xios_get_handle("file_definition", filegroup_hdl )
         CALL xios_add_child(filegroup_hdl, file_hdl, 'wrestart')
@@ -494 +486 @@
 
         IF(PRESENT(rd3)) THEN
-               IF(lwp) write(numout, *) TRIM(sdfield), ' 3D ', size(rd3,3)
-               IF(lwp) CALL FLUSH(numout)
                CALL xios_set_attr (field_hdl, enabled = .TRUE., name = TRIM(sdfield),   &
                             domain_ref="grid_N", axis_ref=TRIM(iom_axis(size(rd3, 3))), &
@@ -502 +492 @@
 
         IF(PRESENT(rd2)) THEN
-               IF(lwp) write(numout, *) TRIM(sdfield), ' 2D'
-               IF(lwp) CALL FLUSH(numout)
                CALL xios_set_attr (field_hdl, enabled = .TRUE., name = TRIM(sdfield), &
                                    domain_ref="grid_N", prec = 8, operation = "instant") 
@@ -509 +497 @@
 
         IF(PRESENT(rd1)) THEN
-               IF(lwp) write(numout, *) TRIM(sdfield), ' 1D ', size(rd1,1)
-               IF(lwp) CALL FLUSH(numout)
                CALL xios_set_attr (field_hdl, enabled = .TRUE., name = TRIM(sdfield), &
                                    axis_ref=TRIM(iom_axis(size(rd1, 1))), prec = 8, operation = "instant")
@@ -516 +502 @@
 
         IF(PRESENT(rd0)) THEN
-               IF(lwp) write(numout, *) TRIM(sdfield), ' 0D'
-               IF(lwp) CALL FLUSH(numout)
                CALL xios_set_attr (field_hdl, enabled = .TRUE., name = TRIM(sdfield), &
                                          scalar_ref = "grid_scalar", prec = 8, operation = "instant")
@@ -1894 +1878 @@
       !!----------------------------------------------------------------------
       clname = cdname
-      IF(lwp) write(numout, *) 'Finalize: ', TRIM(cdname)
       IF( TRIM(Agrif_CFixed()) .NE. '0' ) clname = TRIM(Agrif_CFixed())//"_"//clname 
       IF( xios_is_valid_context(clname) ) THEN