Changeset 2119
- Timestamp:
- 2010-09-24T15:19:32+02:00 (14 years ago)
- Location:
- branches/dev_1784_EVP/NEMO/LIM_SRC_2
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_1784_EVP/NEMO/LIM_SRC_2/dom_ice_2.F90
r2095 r2119 22 22 23 23 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: fs2cor , fcor !: coriolis factor and coeficient 24 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: covrai ,!: sine of geographic latitude25 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: area ,!: surface of grid cell24 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: covrai !: sine of geographic latitude 25 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: area !: surface of grid cell 26 26 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: tms , tmu !: temperature and velocity points masks 27 27 REAL(wp), PUBLIC, DIMENSION(jpi,jpj,2,2) :: wght !: weight of the 4 neighbours to compute averages -
branches/dev_1784_EVP/NEMO/LIM_SRC_2/limsbc_2.F90
r2095 r2119 35 35 PUBLIC lim_sbc_2 ! called by sbc_ice_lim_2 36 36 37 REAL(wp) :: r1_rdtice = 1.e0 / rdt_ice! constant values37 REAL(wp) :: r1_rdtice ! constant values 38 38 REAL(wp) :: epsi16 = 1.e-16 ! - - 39 39 REAL(wp) :: rzero = 0.e0 ! - - … … 204 204 #endif 205 205 ! salt exchanges at the ice/ocean interface 206 zfons = ( soce_r(ji,jj) - sice_r(ji,jj) ) * ( rdmicif(ji,jj) * zrdtir)206 zfons = ( soce_r(ji,jj) - sice_r(ji,jj) ) * ( rdmicif(ji,jj) * r1_rdtice ) 207 207 ! 208 208 ! convert the salt flux from ice into a freshwater flux from ocean … … 215 215 ! 216 216 IF( lk_diaar5 ) THEN 217 CALL iom_put( 'isnwmlt_cea' , rdmsnif(:,:) * zrdtir)218 CALL iom_put( 'fsal_virt_cea', soce_r(:,:) * rdmicif(:,:) * zrdtir)219 CALL iom_put( 'fsal_real_cea', - sice_r(:,:) * rdmicif(:,:) * zrdtir)217 CALL iom_put( 'isnwmlt_cea' , rdmsnif(:,:) * r1_rdtice ) 218 CALL iom_put( 'fsal_virt_cea', soce_r(:,:) * rdmicif(:,:) * r1_rdtice ) 219 CALL iom_put( 'fsal_real_cea', - sice_r(:,:) * rdmicif(:,:) * r1_rdtice ) 220 220 ENDIF 221 221
Note: See TracChangeset
for help on using the changeset viewer.