Changeset 4734 for branches

Timestamp:

2014-07-31T12:43:32+02:00 (10 years ago)

Author:

vancop

Message:

compilation bug

File:

• branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90 (modified) (1 diff)

branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90

@@ -177 +177 @@
             ! --- Energy received in the lead, zqld is defined everywhere (J.m-2) --- !
             zqld =  tms(ji,jj) * rdt_ice *                                          &
-               &  ( pfrld(ji,jj)         * ( zqsr(ji,jj) * oatte(ji,jj) + zqns(ji,jj) ) 
+               &  ( pfrld(ji,jj)         * ( zqsr(ji,jj) * oatte(ji,jj) + zqns(ji,jj) ) &
                &    + ( pfrld(ji,jj)**betas - pfrld(ji,jj) ) * sprecip(ji,jj) *     & ! heat content of precip
                &      ( cpic * ( MIN( tatm_ice(ji,jj), rt0_snow ) - rtt ) - lfus )  &