Ignore:
Timestamp:
Oct 28, 2010, 9:30:04 AM (14 years ago)
Author:
emillour
Message:

Mise a niveau de la dynamique par rapport a la version 1447 de LMDZ5
Voir les details dans chantiers/commit_v7.log

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/libf/dyn3dpar/integrd_p.F

    r1 r7  
    11!
    2 ! $Id: integrd_p.F 1403 2010-07-01 09:02:53Z fairhead $
     2! $Id: integrd_p.F 1446 2010-10-22 09:27:25Z emillour $
    33!
    44      SUBROUTINE integrd_p
    … …  
    66     $     dv,du,dteta,dq,dp,vcov,ucov,teta,q,ps0,masse,phis,finvmaold)
    77      USE parallel
    8       USE control_mod
     8      USE control_mod, only : planet_type
    99      IMPLICIT NONE
    1010
    … …  
    279279
    280280          CALL qminimum_p( q, nq, deltap )
    281          endif ! of if (planet_type.eq."earth")
    282281c
    283282c    .....  Calcul de la valeur moyenne, unique  aux poles pour  q .....
    … …  
    337336      ENDDO
    338337c$OMP END DO NOWAIT
     338
     339      endif ! of if (planet_type.eq."earth")
     340
    339341c
    340342c
Note: See TracChangeset for help on using the changeset viewer.