Changeset 888 for trunk/NEMO/LIM_SRC_2/limtrp_2.F90
- Timestamp:
- 2008-04-11T19:05:03+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_2/limtrp_2.F90
r823 r888 30 30 31 31 !! * Routine accessibility 32 PUBLIC lim_trp_2 ! called by ice_step_232 PUBLIC lim_trp_2 ! called by sbc_ice_lim_2 33 33 34 34 !! * Shared module variables … … 48 48 !!---------------------------------------------------------------------- 49 49 !! LIM 2.0, UCL-LOCEAN-IPSL (2005) 50 !! $ Header$50 !! $ Id: $ 51 51 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 52 52 !!---------------------------------------------------------------------- … … 112 112 DO jj = 1, jpjm1 113 113 DO ji = 1, jpim1 114 zui_u(ji,jj) = ( u _ice(ji+1,jj ) + u_ice(ji+1,jj+1) ) / ( MAX( tmu(ji+1,jj ) + tmu(ji+1,jj+1), zvbord ) )115 zvi_v(ji,jj) = ( v _ice(ji ,jj+1) + v_ice(ji+1,jj+1) ) / ( MAX( tmu(ji ,jj+1) + tmu(ji+1,jj+1), zvbord ) )114 zui_u(ji,jj) = ( ui_ice(ji+1,jj ) + ui_ice(ji+1,jj+1) ) / ( MAX( tmu(ji+1,jj ) + tmu(ji+1,jj+1), zvbord ) ) 115 zvi_v(ji,jj) = ( vi_ice(ji ,jj+1) + vi_ice(ji+1,jj+1) ) / ( MAX( tmu(ji ,jj+1) + tmu(ji+1,jj+1), zvbord ) ) 116 116 END DO 117 117 END DO … … 128 128 IF (lk_mpp ) CALL mpp_max(zcfl) 129 129 130 IF ( zcfl > 0.5 .AND. lwp ) WRITE(numout,*) 'lim_trp : violation of cfl criterion the ',nday,'th day, cfl = ',zcfl130 IF ( zcfl > 0.5 .AND. lwp ) WRITE(numout,*) 'lim_trp_2 : violation of cfl criterion the ',nday,'th day, cfl = ',zcfl 131 131 132 132 ! content of properties
Note: See TracChangeset
for help on using the changeset viewer.