Changeset 792 for LMDZ4/trunk/libf/dyn3d


Ignore:
Timestamp:
Jun 22, 2007, 2:46:23 PM (17 years ago)
Author:
Laurent Fairhead
Message:

Modifications suite a la transformation des fichiers include pour
qu'ils soient compatibles a la fois au format fixe et au format libre
Un bon nombre de fichier *.inc du coup disparaissent
LF

Location:
LMDZ4/trunk/libf/dyn3d
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3d/control.h

    r691 r792  
    22! $Header$
    33!
    4 c-----------------------------------------------------------------------
    5 c INCLUDE 'control.h'
     4!
     5!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
     6!                 veillez à n'utiliser que des ! pour les commentaires
     7!                 et à bien positionner les & des lignes de continuation
     8!                 (les placer en colonne 6 et en colonne 73)
     9!
     10!-----------------------------------------------------------------------
     11! INCLUDE 'control.h'
    612
    7       COMMON/control/nday,day_step,
    8      .              iperiod,iapp_tracvl,iconser,iecri,idissip,iphysiq ,
    9      .              periodav,ecritphy,iecrimoy,dayref,anneeref,
    10      .              raz_date,offline,ip_ebil_dyn
     13      COMMON/control/nday,day_step,                                     &
     14     &              iperiod,iapp_tracvl,iconser,iecri,idissip,iphysiq , &
     15     &              periodav,ecritphy,iecrimoy,dayref,anneeref,         &
     16     &              raz_date,offline,ip_ebil_dyn
    1117
    12       INTEGER   nday,day_step,iperiod,iapp_tracvl,iconser,iecri,
    13      .          idissip,iphysiq,iecrimoy,dayref,anneeref, raz_date
    14      .          ,ip_ebil_dyn
     18      INTEGER   nday,day_step,iperiod,iapp_tracvl,iconser,iecri,        &
     19     &          idissip,iphysiq,iecrimoy,dayref,anneeref, raz_date      &
     20     &          ,ip_ebil_dyn
    1521      REAL periodav, ecritphy
    1622      logical offline
    1723
    18 c-----------------------------------------------------------------------
     24!-----------------------------------------------------------------------

  • LMDZ4/trunk/libf/dyn3d/paramet.h

    r524 r792  
    22! $Header$
    33!
    4 c-----------------------------------------------------------------------
    5 c   INCLUDE 'paramet.h'
     4!
     5!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
     6!                 veillez  n'utiliser que des ! pour les commentaires
     7!                 et  bien positionner les & des lignes de continuation
     8!                 (les placer en colonne 6 et en colonne 73)
     9!
     10!
     11!-----------------------------------------------------------------------
     12!   INCLUDE 'paramet.h'
    613
    714      INTEGER  iip1,iip2,iip3,jjp1,llmp1,llmp2,llmm1
    … …  
    1017      INTEGER jcfil,jcfllm
    1118
    12       PARAMETER( iip1= iim+1-1/iim,iip2=iim+2,iip3=iim+3
    13      s    ,jjp1=jjm+1-1/jjm)
     19      PARAMETER( iip1= iim+1-1/iim,iip2=iim+2,iip3=iim+3                &
     20     &    ,jjp1=jjm+1-1/jjm)
    1421      PARAMETER( llmp1 = llm+1,  llmp2 = llm+2, llmm1 = llm-1 )
    1522      PARAMETER( kftd  = iim/2 -ndm )
    … …  
    2027      PARAMETER( jcfil=jjm/2+5, jcfllm=jcfil*llm )
    2128
    22 c-----------------------------------------------------------------------
     29!-----------------------------------------------------------------------

  • LMDZ4/trunk/libf/dyn3d/temps.h

    r524 r792  
    11!
    22! $Header$
     3!
     4!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
     5!                 veillez  n'utiliser que des ! pour les commentaires
     6!                 et  bien positionner les & des lignes de continuation
     7!                 (les placer en colonne 6 et en colonne 73)
    38!
    49!
    … …  
    611! INCLUDE 'temps.h'
    712
    8       COMMON/temps/itaufin, dt, day_ini, day_end, annee_ref, day_ref,
    9      .             itau_dyn, itau_phy
     13      COMMON/temps/itaufin, dt, day_ini, day_end, annee_ref, day_ref,   &
     14     &             itau_dyn, itau_phy
    1015
    1116      INTEGER   itaufin

  • LMDZ4/trunk/libf/dyn3d/write_paramLMDZ_dyn.h

    r784 r792  
    22      ndex2d = 0
    33      itau_dyn=itau_dyn+itau
    4       print*,'write_paramLMDZ_dyn :itau_dyn=',itau_dyn
    54c
    65      zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(prt_level)
Note: See TracChangeset for help on using the changeset viewer.