Changeset 6847 for branches/CNRS

Timestamp:

2016-08-05T18:13:24+02:00 (8 years ago)

Author:

aumont

Message:

remove write in p4zprod

File:

• branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zprod.F90 (modified) (1 diff)

branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zprod.F90

@@ -146 +146 @@
                      zmxl_chl(ji,jj,jk) = zmxl_chl(ji,jj,jk) * zval
                   ENDIF
-                  IF (mig(ji) == 60 .and. mjg(jj) == 25 .and. jk == 1) THEn
-                    write(0,*) 'plante ',zmxl_fac(ji,jj,jk),MAX( 1., zstrn(ji,jj) ),   &
-                    & -0.2 * zmxl_fac(ji,jj,jk)
-                  ENDIF 
                   zmxl_fac(ji,jj,jk) = ( 1. - exp( -0.2 * zmxl_fac(ji,jj,jk) ) ) * ( 1. - fr_i(ji,jj) )
                   zmxl_chl(ji,jj,jk) = zmxl_chl(ji,jj,jk) * ( 1. - fr_i(ji,jj) )