/[lmdze]/trunk/dyn3d/massbar.f90
ViewVC logotype

Diff of /trunk/dyn3d/massbar.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 78 by guez, Wed Feb 5 17:51:07 2014 UTC revision 79 by guez, Fri Feb 28 17:52:47 2014 UTC
# Line 21  SUBROUTINE massbar(  masse, massebx, mas Line 21  SUBROUTINE massbar(  masse, massebx, mas
21    use comconst    use comconst
22    use comgeom    use comgeom
23    !    !
24    REAL    masse( ip1jmp1,llm ), massebx( ip1jmp1,llm )  , &    REAL, intent(in):: masse( ip1jmp1,llm )
25         masseby(   ip1jm,llm )    real massebx( ip1jmp1,llm )  , masseby(   ip1jm,llm )
26    !    !
27    !    !
28    ! Méthode pour calculer massebx et masseby. A chaque point scalaire    ! Méthode pour calculer massebx et masseby. A chaque point scalaire

Legend:
Removed from v.78  
changed lines
  Added in v.79

  ViewVC Help
Powered by ViewVC 1.1.21