Changeset 6580

Timestamp:

2016-05-19T16:15:06+02:00 (8 years ago)

Author:

flavoni

Message:

remove debug print

File:

• branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90 (modified) (3 diffs)

branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90

@@ -102 +102 @@
       IF(  ln_tsd_init .OR. ln_tsd_tradmp  ) THEN
          !
-IF(lwp) WRITE(numout,*) ' sto dentro if ln_tsd_init prima di allocate if necessary riga 104 '
          ALLOCATE( sf_tsd(jpts), STAT=ierr0 )
          IF( ierr0 > 0 ) THEN
@@ -108 +107 @@
          ENDIF
          !
-IF(lwp) WRITE(numout,*) ' riga 110 : allocate jp_temp jpk '
                                 ALLOCATE( sf_tsd(jp_tem)%fnow(jpi,jpj,jpk)   , STAT=ierr0 )
          IF( sn_tem%ln_tint )   ALLOCATE( sf_tsd(jp_tem)%fdta(jpi,jpj,jpk,2) , STAT=ierr1 )
-IF(lwp) WRITE(numout,*) ' riga 113 : dopo allocate jp_temp jpk, 2 '
                                 ALLOCATE( sf_tsd(jp_sal)%fnow(jpi,jpj,jpk)   , STAT=ierr2 )
          IF( sn_sal%ln_tint )   ALLOCATE( sf_tsd(jp_sal)%fdta(jpi,jpj,jpk,2) , STAT=ierr3 )
@@ -120 +117 @@
          !                         ! fill sf_tsd with sn_tem & sn_sal and control print
          slf_i(jp_tem) = sn_tem   ;   slf_i(jp_sal) = sn_sal
-IF(lwp) WRITE(numout,*) ' riga 122 : prima di fld_fill'
          CALL fld_fill( sf_tsd, slf_i, cn_dir, 'dta_tsd', 'Temperature & Salinity data', 'namtsd' )
-IF(lwp) WRITE(numout,*) ' riga 124 : dopo di fld_fill'
          !
       ENDIF