Changeset 1403 for LMDZ4/trunk/libf/dyn3dpar/fluxstokenc_p.F
- Timestamp:
- Jul 1, 2010, 11:02:53 AM (14 years ago)
- Location:
- LMDZ4/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk
- Property svn:mergeinfo changed
-
LMDZ4/trunk/libf/dyn3dpar/fluxstokenc_p.F
r1279 r1403 4 4 SUBROUTINE fluxstokenc_p(pbaru,pbarv,masse,teta,phi,phis, 5 5 . time_step,itau ) 6 #ifdef CPP_ EARTH7 ! This routine is designed to work for Earth andwith ioipsl6 #ifdef CPP_IOIPSL 7 ! This routine is designed to work with ioipsl 8 8 9 9 USE IOIPSL … … 153 153 DO l=1,llm 154 154 DO ij = ijb,ije 155 pbaruc(ij,l) = pbaruc(ij,l)/ float(istdyn)156 tetac(ij,l) = tetac(ij,l)/ float(istdyn)157 phic(ij,l) = phic(ij,l)/ float(istdyn)155 pbaruc(ij,l) = pbaruc(ij,l)/REAL(istdyn) 156 tetac(ij,l) = tetac(ij,l)/REAL(istdyn) 157 phic(ij,l) = phic(ij,l)/REAL(istdyn) 158 158 ENDDO 159 159 ENDDO … … 165 165 DO l=1,llm 166 166 DO ij = ijb,ije 167 pbarvc(ij,l) = pbarvc(ij,l)/ float(istdyn)167 pbarvc(ij,l) = pbarvc(ij,l)/REAL(istdyn) 168 168 ENDDO 169 169 ENDDO … … 202 202 203 203 iadvtr=0 204 Print*,'ITAU auqel on stoke les fluxmasses',itau204 write(lunout,*)'ITAU auquel on stoke les fluxmasses',itau 205 205 206 206 ijb=ij_begin … … 244 244 #else 245 245 write(lunout,*) 246 & 'fluxstokenc: Needs Earth physics (and ioipsl)to function'246 & 'fluxstokenc: Needs IOIPSL to function' 247 247 #endif 248 ! of #ifdef CPP_ EARTH248 ! of #ifdef CPP_IOIPSL 249 249 RETURN 250 250 END
Note: See TracChangeset
for help on using the changeset viewer.