Changeset 1403 for LMDZ4/trunk/libf/dyn3d/fluxstokenc.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/dyn3d/fluxstokenc.F
r1279 r1403 4 4 SUBROUTINE fluxstokenc(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 … … 114 114 DO l=1,llm 115 115 DO ij = 1,ip1jmp1 116 pbaruc(ij,l) = pbaruc(ij,l)/ float(istdyn)117 tetac(ij,l) = tetac(ij,l)/ float(istdyn)118 phic(ij,l) = phic(ij,l)/ float(istdyn)116 pbaruc(ij,l) = pbaruc(ij,l)/REAL(istdyn) 117 tetac(ij,l) = tetac(ij,l)/REAL(istdyn) 118 phic(ij,l) = phic(ij,l)/REAL(istdyn) 119 119 ENDDO 120 120 DO ij = 1,ip1jm 121 pbarvc(ij,l) = pbarvc(ij,l)/ float(istdyn)121 pbarvc(ij,l) = pbarvc(ij,l)/REAL(istdyn) 122 122 ENDDO 123 123 ENDDO … … 141 141 142 142 iadvtr=0 143 Print*,'ITAU auqel on stoke les fluxmasses',itau143 write(lunout,*)'ITAU auquel on stoke les fluxmasses',itau 144 144 145 145 call histwrite(fluxid, 'masse', itau, massem, … … 167 167 #else 168 168 write(lunout,*) 169 & 'fluxstokenc: Needs Earth physics (and ioipsl)to function'169 & 'fluxstokenc: Needs IOIPSL to function' 170 170 #endif 171 ! of #ifdef CPP_ EARTH171 ! of #ifdef CPP_IOIPSL 172 172 RETURN 173 173 END
Note: See TracChangeset
for help on using the changeset viewer.