Changeset 802

Timestamp:

2008-01-31T10:40:42+01:00 (16 years ago)

Author:

ctlod

Message:

use (:,:) instead of (ji,jj) in the computation of p_qla(:,:) field, see ticket:#57

File:

• branches/dev_001_SBC/NEMO/OPA_SRC/SBC/sbcblk_core.F90 (modified) (1 diff)

branches/dev_001_SBC/NEMO/OPA_SRC/SBC/sbcblk_core.F90

@@ -428 +428 @@
 !CDIR COLLAPSE
       p_qla(:,:) = rhoa * Ls  * Cice * z_wnds_t(:,:)   &                                    ! Latent Heat
-         &       * (  11637800. * EXP( -5897.8 / pst(:,:) ) / rhoa - sf(jp_humi)%fnow(ji,jj)  )
+         &       * (  11637800. * EXP( -5897.8 / pst(:,:) ) / rhoa - sf(jp_humi)%fnow(:,:)  )
       
       ! Latent heat sensitivity for ice (Dqla/Dt)