Go to the source code of this file.
 | 
| !$Id  | !IF (ecrit_tra >0.) THEN!$OMP MASTER!!!CALL ymds2ju(annee_ref | 
|   | 
| !$Id zjulian!correction pour l heure initiale!jyg!jyg CALL  | ymds2ju (annee_ref, 1, day_ref, hour, zjulian)!jyg CALL histbeg_phy("histrac" | 
|   | 
| !$Id zjulian!correction pour l heure initiale!jyg!jyg CALL nid_tra CALL  | histvert (nid_tra,"presnivs","Vertical levels","Pa", klev, presnivs, nvert,"down") zsto | 
|   | 
 | 
| !$Id  | day_ref | 
|   | 
| !$Id zjulian!correction pour l heure initiale!jyg!jyg CALL  | itau_phy | 
|   | 
| !$Id zjulian!correction pour l heure initiale!jyg!jyg CALL  | zjulian | 
|   | 
| !$Id zjulian!correction pour l heure initiale!jyg!jyg CALL  | pdtphys | 
|   | 
| !$Id zjulian!correction pour l heure initiale!jyg!jyg CALL  | nhori | 
|   | 
      
        
          | ! $Id !IF  | 
          ( | 
          ecrit_tra  | 
          ,  | 
        
        
           | 
           | 
          0.  | 
            | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
      
        
          | ! $Id zjulian ! correction pour l heure initiale !jyg !jyg CALL nid_tra CALL histvert  | 
          ( | 
          nid_tra  | 
          ,  | 
        
        
           | 
           | 
          "presnivs"  | 
          ,  | 
        
        
           | 
           | 
          "Vertical levels"  | 
          ,  | 
        
        
           | 
           | 
          "Pa"  | 
          ,  | 
        
        
           | 
           | 
          klev  | 
          ,  | 
        
        
           | 
           | 
          presnivs  | 
          ,  | 
        
        
           | 
           | 
          nvert  | 
          ,  | 
        
        
           | 
           | 
          "down"  | 
            | 
        
        
           | 
          ) | 
           |  | 
        
      
 
 
      
        
          | ! $Id zjulian ! correction pour l heure initiale !jyg !jyg CALL itau_phy | 
        
      
 
 
      
        
          | ! $Id zjulian ! correction pour l heure initiale !jyg !jyg CALL nhori | 
        
      
 
 
      
        
          | ! $Id zjulian ! correction pour l heure initiale !jyg !jyg CALL pdtphys | 
        
      
 
 
      
        
          | ! $Id zjulian ! correction pour l heure initiale !jyg !jyg CALL zjulian |