Changeset 12 for trunk/NEMO/LIM_SRC/limhdf.F90
- Timestamp:
- 2004-02-17T07:56:53+01:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC/limhdf.F90
r3 r12 16 16 ! USE limdyn 17 17 USE lbclnk 18 USE lib_mpp 18 19 19 20 IMPLICIT NONE … … 83 84 zdiv0(:, 1 ) = 0.e0 84 85 zdiv0(:,jpj) = 0.e0 85 #if ! defined key_vectopt_loop 86 zflu (jpi,:) = 0.e087 zflv (jpi,:) = 0.e088 zdiv0(1, :) = 0.e089 zdiv0(jpi,:) = 0.e090 #endif 86 IF( .NOT.lk_vopt_loop ) THEN 87 zflu (jpi,:) = 0.e0 88 zflv (jpi,:) = 0.e0 89 zdiv0(1, :) = 0.e0 90 zdiv0(jpi,:) = 0.e0 91 ENDIF 91 92 92 93 ! Metric coefficient (compute at the first call and saved in … … 149 150 END DO 150 151 END DO 151 #if defined key_mpp 152 CALL mpp_max( zconv ) 153 #endif 152 IF( lk_mpp ) CALL mpp_max( zconv ) ! max over the global domain 153 154 154 DO jj = 2, jpjm1 155 155 DO ji = 2 , jpim1
Note: See TracChangeset
for help on using the changeset viewer.