Changeset 6847


Ignore:
Timestamp:
2016-08-05T18:13:24+02:00 (5 years ago)
Author:
aumont
Message:

remove write in p4zprod

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zprod.F90

    r6841 r6847  
    146146                     zmxl_chl(ji,jj,jk) = zmxl_chl(ji,jj,jk) * zval 
    147147                  ENDIF 
    148                   IF (mig(ji) == 60 .and. mjg(jj) == 25 .and. jk == 1) THEn 
    149                     write(0,*) 'plante ',zmxl_fac(ji,jj,jk),MAX( 1., zstrn(ji,jj) ),   & 
    150                     & -0.2 * zmxl_fac(ji,jj,jk) 
    151                   ENDIF  
    152148                  zmxl_fac(ji,jj,jk) = ( 1. - exp( -0.2 * zmxl_fac(ji,jj,jk) ) ) * ( 1. - fr_i(ji,jj) ) 
    153149                  zmxl_chl(ji,jj,jk) = zmxl_chl(ji,jj,jk) * ( 1. - fr_i(ji,jj) ) 
Note: See TracChangeset for help on using the changeset viewer.