Changeset 12106


Ignore:
Timestamp:
2019-12-06T21:23:50+01:00 (6 weeks ago)
Author:
mathiot
Message:

fix to compile in debug mode + rm debug WRITE

Location:
utils/tools_UKMO_MERGE_2019/DOMAINcfg/src
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • utils/tools_UKMO_MERGE_2019/DOMAINcfg/src/iom.F90

    r12101 r12106  
    12381238               ENDIF 
    12391239            ENDIF 
    1240             WRITE(numout,*) 'istart icnt',istart, ' ', icnt  
    1241             WRITE(numout,*) ' idx i1, i2, j1, j2 ',ix1, ix2, iy1, iy2 
     1240 
    12421241            CALL iom_nf90_get( kiomid, idvar, inbdim, istart, icnt, ix1, ix2, iy1, iy2, pv_r1d, pv_r2d, pv_r3d ) 
    12431242 
  • utils/tools_UKMO_MERGE_2019/DOMAINcfg/src/lib_mpp.F90

    r12101 r12106  
    16621662      CHARACTER(len=*),DIMENSION(:) ::   ldtxt 
    16631663      CHARACTER(len=*) ::   ldname 
     1664      INTEGER ::   function_value 
    16641665      INTEGER ::   kumnam_ref, knumnam_cfg , kumond , kstop 
    16651666      IF( PRESENT( localComm ) ) mpi_comm_oce = localComm 
Note: See TracChangeset for help on using the changeset viewer.