- Timestamp:
- 2017-07-10T20:24:21+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90
r7753 r8313 63 63 INTEGER :: ji, jj, jn ! dummy loop indices 64 64 REAL(wp) :: zse3t, zrtrn, zratio, zfact ! temporary scalars 65 REAL(wp) :: z switch, zftra, zcd, zdtra, ztfx, ztra! temporary scalars65 REAL(wp) :: zftra, zcd, zdtra, ztfx, ztra ! temporary scalars 66 66 CHARACTER (len=22) :: charout 67 67 REAL(wp), POINTER, DIMENSION(:,: ) :: zsfx … … 77 77 ! 78 78 zrtrn = 1.e-15_wp 79 80 SELECT CASE( nn_ice_embd ) ! levitating or embedded sea-ice option81 CASE( 0 ) ; zswitch = 1 ! (0) standard levitating sea-ice : salt exchange only82 CASE( 1, 2 ) ; zswitch = 0 ! (1) levitating sea-ice: salt and volume exchange but no pressure effect83 ! ! (2) embedded sea-ice : salt and volume fluxes and pressure84 END SELECT85 79 86 80 IF( kt == nittrc000 ) THEN … … 145 139 ! tracer flux only : add concentration dilution term in net tracer flux, no F-M in volume flux 146 140 ! tracer and mass fluxes : no concentration dilution term in net tracer flux, F-M term in volume flux 147 ztfx = zftra + zswitch * zcd ! net tracer flux (+C/D if no ice/ocean mass exchange)141 ztfx = zftra ! net tracer flux 148 142 149 143 zdtra = r1_rau0 * ( ztfx + zsfx(ji,jj) * trn(ji,jj,1,jn) )
Note: See TracChangeset
for help on using the changeset viewer.