Changeset 879 for branches/dev_001_SBC/NEMO/LIM_SRC/limthd.F90

Timestamp:

2008-04-04T17:00:05+02:00 (16 years ago)

Author:

ctlod

Message:

dev_001_SBC: clean & add control prints, see ticket:#104

File:

• branches/dev_001_SBC/NEMO/LIM_SRC/limthd.F90 (modified) (2 diffs)

branches/dev_001_SBC/NEMO/LIM_SRC/limthd.F90

@@ -184 +184 @@
             !  temperature and turbulent mixing (McPhee, 1992)
             zfric_u        = MAX ( MIN( SQRT( ust2s(ji,jj) ) , zfric_umax ) , zfric_umin )  ! friction velocity
-!!gm old    fdtcn(ji,jj)  = zindb * rau0 * rcp * 0.006  * zfric_u * ( sst_io(ji,jj) - tfu(ji,jj) ) 
             fdtcn(ji,jj)  = zindb * rau0 * rcp * 0.006  * zfric_u * ( sst_m(ji,jj) - tfu(ji,jj) ) 
             qdtcn(ji,jj)  = zindb * fdtcn(ji,jj) * frld(ji,jj) * rdt_ice
@@ -203 +202 @@
             
             !  energy needed to bring ocean surface layer until its freezing
-!!gm old    qcmif  (ji,jj) =  rau0 * rcp * fse3t(ji,jj,1) * ( tfu(ji,jj) - sst_io(ji,jj) ) * ( 1 - zinda )
             qcmif  (ji,jj) =  rau0 * rcp * fse3t(ji,jj,1) * ( tfu(ji,jj) - sst_m(ji,jj) ) * ( 1 - zinda )