Changeset 3894 for branches/2013/dev_r3858_CNRS3_Ediag/NEMOGCM/NEMO/LIM_SRC_3

Timestamp:

2013-04-27T17:46:22+02:00 (11 years ago)

Author:

gm

Message:

dev_r3858_CNRS3_Ediag: #927 simplification of eosbn2, use of alpha & beta in zdfddm, trabbl...

File:

• branches/2013/dev_r3858_CNRS3_Ediag/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90 (modified) (1 diff)

branches/2013/dev_r3858_CNRS3_Ediag/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

@@ -94 +94 @@
       IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '
 
-      t_bo(:,:) = tfreez( tsn(:,:,1,jp_sal) ) * tmask(:,:,1)       ! freezing/melting point of sea water [Celcius]
+      t_bo(:,:) = eos_fzp( tsn(:,:,1,jp_sal) ) * tmask(:,:,1)       ! freezing/melting point of sea water [Celcius]
 
       DO jj = 1, jpj                                       ! ice if sst <= t-freez + ttest