Changeset 4930 for branches/2014/dev_CNRS1_2014
- Timestamp:
- 2014-12-01T10:57:20+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_CNRS1_2014/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90
r4907 r4930 112 112 REAL(wp), POINTER, DIMENSION(:,:) :: zsmv_i_1d ! 1-D version of smv_i 113 113 114 REAL(wp), POINTER, DIMENSION(:,:,:) :: ze_i_1d !: 1-D version of e_i114 REAL(wp), POINTER, DIMENSION(:,:,:) :: ze_i_1d !: 1-D version of e_i 115 115 116 116 REAL(wp), POINTER, DIMENSION(:,:) :: zvrel ! relative ice / frazil velocity … … 479 479 qh_i_old(ji,nlay_i+1) = ze_newice(ji) * zv_newfra 480 480 ENDDO 481 482 481 ! --- Ice enthalpy remapping --- ! 483 482 CALL lim_thd_ent( 1, nbpac, ze_i_1d(1:nbpac,:,jl) ) 484 485 483 ENDDO 486 484
Note: See TracChangeset
for help on using the changeset viewer.