/[lmdze]/trunk/dyn3d/comgeom.f
ViewVC logotype

Diff of /trunk/dyn3d/comgeom.f

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

revision 97 by guez, Fri Apr 25 14:58:31 2014 UTC revision 112 by guez, Thu Sep 18 13:36:51 2014 UTC
# Line 170  contains Line 170  contains
170      use jumble, only: new_unit      use jumble, only: new_unit
171      use nr_util, only: pi      use nr_util, only: pi
172      USE paramet_m, ONLY : iip1, jjp1      USE paramet_m, ONLY : iip1, jjp1
173      USE serre, ONLY : alphax, alphay, clat, clon, dzoomx, dzoomy, grossismx, &      USE serre, ONLY : alphax, alphay, clat, clon, pxo, pyo, transx, transy
          grossismy, pxo, pyo, taux, tauy, transx, transy  
174      ! Modifiés pxo, pyo, transx, transy      ! Modifiés pxo, pyo, transx, transy
175    
176      ! Local:      ! Local:
# Line 217  contains Line 216  contains
216      print *, "gamdi_h = ", gamdi_h      print *, "gamdi_h = ", gamdi_h
217    
218      IF (fxyhypb) THEN      IF (fxyhypb) THEN
        ! Utilisation de fxyhyper, f(x, y) à dérivée tangente hyperbolique  
219         print *, 'inigeom: Y = latitude, dérivée tangente hyperbolique'         print *, 'inigeom: Y = latitude, dérivée tangente hyperbolique'
220         CALL fxyhyper(clat, grossismy, dzoomy, tauy, clon, grossismx, dzoomx, &         CALL fxyhyper(rlatu, yprimu, rlatv, yprimv, rlatu1, yprimu1, rlatu2, &
             taux, rlatu, yprimu, rlatv, yprimv, rlatu1, yprimu1, rlatu2, &  
221              yprimu2, rlonu, xprimu, rlonv, xprimv, rlonm025, xprimm025, &              yprimu2, rlonu, xprimu, rlonv, xprimv, rlonm025, xprimm025, &
222              rlonp025, xprimp025)              rlonp025, xprimp025)
223      ELSE      ELSE
Legend:
Removed from v.97  
changed lines
  Added in v.112
  ViewVC Help
Powered by ViewVC 1.1.21