Changeset 1279 for LMDZ4/trunk/libf/dyn3dpar/gr_fi_dyn_p.F
- Timestamp:
- Dec 10, 2009, 10:02:56 AM (15 years ago)
- Location:
- LMDZ4/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk
- Property svn:mergeinfo changed
/LMDZ4/branches/LMDZ4-dev merged: 1150-1162,1164-1193,1195-1231,1234-1235,1237-1240,1242-1274,1276
- Property svn:mergeinfo changed
-
LMDZ4/trunk/libf/dyn3dpar/gr_fi_dyn_p.F
r774 r1279 1 ! 2 ! $Id$ 3 ! 1 4 SUBROUTINE gr_fi_dyn_p(nfield,ngrid,im,jm,pfi,pdyn) 5 #ifdef CPP_EARTH 6 ! Interface with parallel physics, 7 ! for now this routine only works with Earth physics 2 8 USE mod_interface_dyn_phys 3 9 USE dimphy … … 46 52 ENDDO 47 53 c$OMP END DO NOWAIT 54 #else 55 write(lunout,*) "gr_fi_dyn_p : This routine should not be called", 56 & "without parallelized physics" 57 stop 58 #endif 59 ! of #ifdef CPP_EARTH 48 60 RETURN 49 61 END
Note: See TracChangeset
for help on using the changeset viewer.