Changeset 1673 for LMDZ5/trunk/libf/dyn3dmem/call_dissip_mod.F90
- Timestamp:
- Oct 27, 2012, 4:23:07 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3dmem/call_dissip_mod.F90
r1632 r1673 240 240 !$OMP END DO NOWAIT 241 241 242 if (1 == 0) then 243 !!! Ehouarn: lines here 1) kill 1+1=2 in the dynamics 244 !!! 2) should probably not be here anyway 245 !!! but are kept for those who would want to revert to previous behaviour 242 246 !$OMP MASTER 243 247 DO ij = 1,iim … … 251 255 !$OMP END MASTER 252 256 253 ENDIF 257 ENDIF ! of if (1 == 0) 258 endif ! of of (pole_nord) 254 259 255 260 IF (pole_sud) THEN … … 269 274 !$OMP END DO NOWAIT 270 275 276 if (1 == 0) then 277 !!! Ehouarn: lines here 1) kill 1+1=2 in the dynamics 278 !!! 2) should probably not be here anyway 279 !!! but are kept for those who would want to revert to previous behaviour 271 280 !$OMP MASTER 272 281 DO ij = 1,iim … … 279 288 ENDDO 280 289 !$OMP END MASTER 281 ENDIF 290 ENDIF ! of if (1 == 0) 291 endif ! of if (pole_sud) 282 292 283 293
Note: See TracChangeset
for help on using the changeset viewer.