Changeset 9932 for NEMO/trunk/src/OCE/ICB/icbclv.F90
- Timestamp:
- 2018-07-11T18:12:44+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ICB/icbclv.F90
r9598 r9932 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.