Changeset 792 for LMDZ4/trunk/libf/dyn3d
- Timestamp:
- Jun 22, 2007, 2:46:23 PM (18 years ago)
- Location:
- LMDZ4/trunk/libf/dyn3d
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/dyn3d/control.h
r691 r792 2 2 ! $Header$ 3 3 ! 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' 6 12 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_dyn13 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 11 17 12 INTEGER nday,day_step,iperiod,iapp_tracvl,iconser,iecri, 13 . idissip,iphysiq,iecrimoy,dayref,anneeref, raz_date14 .,ip_ebil_dyn18 INTEGER nday,day_step,iperiod,iapp_tracvl,iconser,iecri, & 19 & idissip,iphysiq,iecrimoy,dayref,anneeref, raz_date & 20 & ,ip_ebil_dyn 15 21 REAL periodav, ecritphy 16 22 logical offline 17 23 18 c-----------------------------------------------------------------------24 !----------------------------------------------------------------------- -
LMDZ4/trunk/libf/dyn3d/paramet.h
r524 r792 2 2 ! $Header$ 3 3 ! 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' 6 13 7 14 INTEGER iip1,iip2,iip3,jjp1,llmp1,llmp2,llmm1 … … 10 17 INTEGER jcfil,jcfllm 11 18 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) 14 21 PARAMETER( llmp1 = llm+1, llmp2 = llm+2, llmm1 = llm-1 ) 15 22 PARAMETER( kftd = iim/2 -ndm ) … … 20 27 PARAMETER( jcfil=jjm/2+5, jcfllm=jcfil*llm ) 21 28 22 c-----------------------------------------------------------------------29 !----------------------------------------------------------------------- -
LMDZ4/trunk/libf/dyn3d/temps.h
r524 r792 1 1 ! 2 2 ! $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) 3 8 ! 4 9 ! … … 6 11 ! INCLUDE 'temps.h' 7 12 8 COMMON/temps/itaufin, dt, day_ini, day_end, annee_ref, day_ref, 9 .itau_dyn, itau_phy13 COMMON/temps/itaufin, dt, day_ini, day_end, annee_ref, day_ref, & 14 & itau_dyn, itau_phy 10 15 11 16 INTEGER itaufin -
LMDZ4/trunk/libf/dyn3d/write_paramLMDZ_dyn.h
r784 r792 2 2 ndex2d = 0 3 3 itau_dyn=itau_dyn+itau 4 print*,'write_paramLMDZ_dyn :itau_dyn=',itau_dyn5 4 c 6 5 zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(prt_level)
Note: See TracChangeset
for help on using the changeset viewer.