Changeset 212 for LMDZ.3.3/trunk/libf/dyn3d/fyhyp.F

Timestamp:

Apr 24, 2001, 3:12:45 PM (23 years ago)

Author:

lmdz

Message:

Modifications des sorties de controle Levan
LF

File:

• LMDZ.3.3/trunk/libf/dyn3d/fyhyp.F (modified) (10 diffs)

LMDZ.3.3/trunk/libf/dyn3d/fyhyp.F

@@ -3 +3 @@
 c
        SUBROUTINE fyhyp ( yzoomdeg, grossism, dzoom,tau  ,  
-     ,  rrlatu,yyprimu,rrlatv,yyprimv,rlatu2,yprimu2,rlatu1,yprimu1 ) 
+     ,  rrlatu,yyprimu,rrlatv,yyprimv,rlatu2,yprimu2,rlatu1,yprimu1 ,
+     ,  champmin,champmax                                            ) 
 
 cc    ...  Version du 01/04/2001 ....
@@ -86 +87 @@
        ENDIF
 
-       WRITE(6,*) '  yzoom ,dzoomy (radians),tau',y0,dzoom,tau
+       WRITE(6,18)
+       WRITE(6,*) ' yzoom( rad.),grossism,tau,dzoom (radians)'
+       WRITE(6,24) y0,grossism,tau,dzoom
 
        DO i = 0, nmax2 
@@ -181 +184 @@
 c   .....   yuv  = 0.5  si calcul des latitudes  aux pts.  V  .....
 c
+      WRITE(6,18)
 c
       DO 5000  ik = 1,4
@@ -253 +257 @@
        ENDDO
 
-       WRITE(6,18)
        WRITE(6,*) 'Reorganisation des latitudes pour avoir entre - pi/2'
      , ,' et  pi/2 '
@@ -296 +299 @@
 
         IF( ik.EQ.1 )  THEN
-         WRITE(6,18) 
-         WRITE(6,*)  ' YLAT  en U   apres ( en  deg. ) '
-         WRITE(6,68) (yvrai(j),j=1,jlat)
+c         WRITE(6,18) 
+c         WRITE(6,*)  ' YLAT  en U   apres ( en  deg. ) '
+c         WRITE(6,68) (yvrai(j),j=1,jlat)
 cc         WRITE(6,*) ' YPRIM '
 cc         WRITE(6,445) ( yprim(j),j=1,jlat)
@@ -308 +311 @@
 
         ELSE IF ( ik.EQ. 2 )  THEN
-         WRITE(6,18) 
-         WRITE(6,*) ' YLAT   en V  apres ( en  deg. ) '
-         WRITE(6,68) (yvrai(j),j=1,jlat)
+c         WRITE(6,18) 
+c         WRITE(6,*) ' YLAT   en V  apres ( en  deg. ) '
+c         WRITE(6,68) (yvrai(j),j=1,jlat)
 cc         WRITE(6,*)' YPRIM '
 cc         WRITE(6,445) ( yprim(j),j=1,jlat)
@@ -320 +323 @@
 
         ELSE IF ( ik.EQ. 3 )  THEN
-         WRITE(6,18) 
-         WRITE(6,*)  ' YLAT  en U + 0.75  apres ( en  deg. ) '
-         WRITE(6,68) (yvrai(j),j=1,jlat)
+c         WRITE(6,18) 
+c         WRITE(6,*)  ' YLAT  en U + 0.75  apres ( en  deg. ) '
+c         WRITE(6,68) (yvrai(j),j=1,jlat)
 cc         WRITE(6,*) ' YPRIM '
 cc         WRITE(6,445) ( yprim(j),j=1,jlat)
@@ -332 +335 @@
 
         ELSE IF ( ik.EQ. 4 )  THEN
-         WRITE(6,18) 
-         WRITE(6,*)  ' YLAT en U + 0.25  apres ( en  deg. ) '
-         WRITE(6,68)(yvrai(j),j=1,jlat)
+c         WRITE(6,18) 
+c         WRITE(6,*)  ' YLAT en U + 0.25  apres ( en  deg. ) '
+c         WRITE(6,68)(yvrai(j),j=1,jlat)
 cc         WRITE(6,*) ' YPRIM '
 cc         WRITE(6,68) ( yprim(j),j=1,jlat)
@@ -346 +349 @@
 
 5000   CONTINUE
+c
+        WRITE(6,18)
 c
 c  .....     fin de la boucle  do 5000 .....
@@ -361 +366 @@
          champmax = champmax * 180./pi
 
-        WRITE(6,18)
-        WRITE(6,*) '  Latitudes  '
-        WRITE(6,18)
-        WRITE(6,3)  champmin, champmax
-        WRITE(6,*) ' Si cette derniere est trop lache , modifiez les par
-     ,ametres  grossism , tau , dzoom pour Y et repasser ! '
-        WRITE(6,18)
-c
-3      Format(1x, ' Au centre du zoom , la longueur de la maille est',
-     ,  ' d environ ',f8.2 ,' degres  ',
-     , ' alors que la maille en dehors de la zone du zoom est d environ
-     , ', f8.2,' degres ' )
+24     FORMAT(2x,'Parametres yzoom,gross,tau ,dzoom pour fyhyp ',4f8.3)
 18      FORMAT(/)
 68      FORMAT(1x,7f9.2)