Changeset 79 for trunk/NEMO/OPA_SRC/stpctl.F90
- Timestamp:
- 2004-04-22T14:57:11+02:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/stpctl.F90
r15 r79 62 62 WRITE(numout,*) 63 63 WRITE(numout,*) 'stp_ctl : time-stepping control' 64 WRITE(numout,*) '~~~ '64 WRITE(numout,*) '~~~~~~~' 65 65 ! open time.step file 66 66 CALL ctlopn( numstp, 'time.step', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', 1, numout, lwp, 1 ) … … 81 81 82 82 ! Islands (if exist) 83 IF( l _isl ) CALL isl_stp_ctl( kt, kindic )83 IF( lk_isl ) CALL isl_stp_ctl( kt, kindic ) 84 84 85 85 … … 103 103 ! ------------------------ 104 104 !! zumax = MAXVAL( ABS( un(:,:,:) ) ) ! slower than the following loop on NEC SX5 105 zumax = 0. 0105 zumax = 0.e0 106 106 DO jk = 1, jpk 107 107 DO jj = 1, jpj … … 144 144 !! zsmin = MINVAL( sn(:,:,1), mask = tmask(:,:,1) == 1.e0 ) 145 145 ! slower than the following loop on NEC SX5 146 zsmin = 100. 0146 zsmin = 100.e0 147 147 DO jj = 2, jpjm1 148 148 DO ji = 1, jpi
Note: See TracChangeset
for help on using the changeset viewer.