Changeset 1037 for trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

Timestamp:

2008-05-30T18:21:28+02:00 (16 years ago)

Author:

ctlod

Message:

trunk: replace freeze(:,:) variable with fr_i(:,:), use the tfreez function defined in eosbn2.F90 and remove the useless ocfzpt.F90 module, see ticket: #177

File:

• trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

@@ -46 +46 @@
    USE in_out_manager  ! I/O manager
    USE prtctl          ! Print control
-   USE ocfzpt          ! ocean freezing point
 
    IMPLICIT NONE
@@ -158 +157 @@
             DO jj = 1, jpj
                DO ji = 1, jpi
-                  zinda    = MAX(  0.e0, SIGN(  1.e0, -( -1.5 - freeze(ji,jj) )  )  )
+!!                zinda    = MAX(  0.e0, SIGN(  1.e0, -( -1.5 - freeze(ji,jj) )  )  )
+!!gm  BBBBBBBBUUUUUUGGGGGGGGGGGGGGGGG    zinda alway negatif   !!!   ????????
+                  zinda    = MAX(  0.e0, SIGN(  1.e0, -( -1.5 - 1.e0 + frld(ji,jj) )  )  )
                   qsr(ji,jj) = zinda * qsr(ji,jj)
                END DO