Changeset 869 for trunk/NEMO/LIM_SRC_3/limthd_ent.F90
- Timestamp:
- 2008-03-26T10:21:54+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_3/limthd_ent.F90
r834 r869 25 25 USE limvar 26 26 USE par_ice 27 USE lib_mpp 27 28 28 29 IMPLICIT NONE … … 308 309 maxnbot0 = MAX ( maxnbot0 , nbot0(ji) ) 309 310 ENDDO 311 IF( lk_mpp ) CALL mpp_max( maxnbot0, kcom=ncomm_ice ) 310 312 311 313 DO jk = 1, maxnbot0
Note: See TracChangeset
for help on using the changeset viewer.