- Timestamp:
- 2018-11-07T18:25:49+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/ICB/icbclv.F90
r9598 r10288 34 34 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 35 35 !! $Id$ 36 !! Software governed by the CeCILL licen ce (./LICENSE)36 !! Software governed by the CeCILL license (see ./LICENSE) 37 37 !!---------------------------------------------------------------------- 38 38 CONTAINS … … 63 63 berg_grid%calving_hflx(:,:) = src_calving_hflx(:,:) * tmask_i(:,:) 64 64 65 IF( ll_first_call .AND. .NOT. l_restarted_bergs ) THEN ! This is a hack to simplify initialization65 IF( ll_first_call .AND. .NOT. l_restarted_bergs ) THEN ! This is a hack to simplify initialization 66 66 ll_first_call = .FALSE. 67 67 !do jn=1, nclasses … … 100 100 101 101 102 SUBROUTINE icb_clv( )102 SUBROUTINE icb_clv( kt ) 103 103 !!---------------------------------------------------------------------- 104 104 !! *** ROUTINE icb_clv *** … … 114 114 !! is considered 115 115 !!---------------------------------------------------------------------- 116 INTEGER, INTENT(in) :: kt 116 117 INTEGER :: ji, jj, jn ! dummy loop indices 117 118 INTEGER :: icnt, icntmax
Note: See TracChangeset
for help on using the changeset viewer.