Changeset 5195 for branches/2015/dev_r5171_CNRS_LIM3_seaicebgc/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90

Timestamp:

2015-04-03T13:28:22+02:00 (9 years ago)

Author:

vancop

Message:

sette modifs 2

File:

• branches/2015/dev_r5171_CNRS_LIM3_seaicebgc/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90 (modified) (1 diff)

branches/2015/dev_r5171_CNRS_LIM3_seaicebgc/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90

@@ -134 +134 @@
                   tra(ji,jj,1,jn) = MAX( tra(ji,jj,1,jn) + zdtra, 0.) ! avoid integral ocean uptake if freezing (for iron)
    
-!                 IF ( ztfx .NE. 0.0 ) THEN
-                  IF ( ( ji .EQ. 3 ) .AND. ( jj .EQ. 2 )  .AND. ( jn .EQ. 2 ) ) THEN
-                      WRITE(numout,*) ji, jj, jn
-                      WRITE(numout,*) ' trn    : ', trn(ji,jj,1,jn)
-                      WRITE(numout,*) ' trb    : ', trb(ji,jj,1,jn)
-                      WRITE(numout,*) ' tra    : ', tra(ji,jj,1,jn)
-                      WRITE(numout,*) ' trc_o  : ', trc_o(ji,jj,jn)
-                      WRITE(numout,*) ' trc_i  : ', trc_i(ji,jj,jn)
-                      WRITE(numout,*) ' fmmflx : ', fmmflx(ji,jj)
-                      WRITE(numout,*) ' zswitch: ', zswitch
-                      WRITE(numout,*) ' zcd   : ', zcd
-                      WRITE(numout,*) ' zftra : ', zftra
-                      WRITE(numout,*) ' ztfx  : ', ztfx
-                      WRITE(numout,*) ' r1_rau0 : ', r1_rau0
-                      WRITE(numout,*) ' zsfx  : ', zsfx(ji,jj)
-                      WRITE(numout,*) ' zse3t : ', zse3t
-                      WRITE(numout,*) ' ztra  : ', ztra
-                      WRITE(numout,*) ' zdtra : ', zdtra
-                      WRITE(numout,*) ' Old tendency : ', zsfx(ji,jj) * r1_rau0 * trn(ji,jj,1,jn) * zse3t
-                  ENDIF
-   
                END DO
             END DO