Changeset 431 for LMDZ.3.3/branches
- Timestamp:
- Dec 19, 2002, 3:52:05 PM (22 years ago)
- Location:
- LMDZ.3.3/branches/rel-LF/libf/dyn3d
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/branches/rel-LF/libf/dyn3d/bilan_dyn.F
r418 r431 41 41 real phi(iip1,jjp1,llm) 42 42 real ucov(iip1,jjp1,llm) 43 real vcov(iip1,jj p1,llm)43 real vcov(iip1,jjm,llm) 44 44 real trac(iip1,jjp1,llm,ntrac) 45 45 -
LMDZ.3.3/branches/rel-LF/libf/dyn3d/conf_gcm.F
r351 r431 94 94 anneeref = 1998 95 95 CALL getin('anneeref',anneeref) 96 97 !Config Key = raz_date 98 !Config Desc = Remise a zero de la date initiale 99 !Config Def = 0 (pas de remise a zero) 100 !Config Help = Remise a zero de la date initiale 101 !Config 0 pas de remise a zero, on garde la date du fichier restart 102 !Config 1 prise en compte de la date de gcm.def avec remise a zero 103 !Config des compteurs de pas de temps 104 raz_date = 0 105 CALL getin('raz_date', raz_date) 96 106 97 107 !Config Key = nday -
LMDZ.3.3/branches/rel-LF/libf/dyn3d/control.h
r2 r431 4 4 COMMON/control/nday,day_step, 5 5 $ iperiod,iconser,iecri,idissip,iphysiq , 6 $ periodav,ecritphy,iecrimoy,dayref,anneeref 6 $ periodav,ecritphy,iecrimoy,dayref,anneeref, 7 $ raz_date 7 8 8 9 INTEGER nday,day_step,iperiod,iconser,iecri, 9 $ idissip,iphysiq,iecrimoy,dayref,anneeref 10 $ idissip,iphysiq,iecrimoy,dayref,anneeref, raz_date 10 11 REAL periodav, ecritphy 11 12 -
LMDZ.3.3/branches/rel-LF/libf/dyn3d/diagedyn.F
r418 r431 67 67 REAL ps(ip1jmp1) ! pression au sol 68 68 REAL p (ip1jmp1,llmp1 ) ! pression aux interfac.des couches 69 REAL pk (ip1jmp1,llm p1) ! = (p/Pref)**kappa69 REAL pk (ip1jmp1,llm ) ! = (p/Pref)**kappa 70 70 REAL teta(ip1jmp1,llm) ! temperature potentielle 71 71 REAL q(ip1jmp1,llm) ! champs eau vapeur -
LMDZ.3.3/branches/rel-LF/libf/dyn3d/etat0_netcdf.F
r384 r431 92 92 REAL :: pbaru(ip1jmp1,llm),pbarv(ip1jm,llm) 93 93 REAL :: w(ip1jmp1,llm) 94 REAL ::phystep,co2_ppm,solaire 94 cIM REAL ::phystep,co2_ppm,solaire 95 REAL ::phystep 95 96 INTEGER :: radpas 96 97 real zrel(iip1*jjp1),chmin,chmax … … 613 614 radpas = NINT (86400./phystep/ FLOAT(nbapp_rad) ) 614 615 write(*,*)'phystep =', phystep, radpas 615 co2_ppm = 330.0 616 solaire = 1370.0 616 cIM : lecture de co2_ppm & solaire ds physiq.def 617 c co2_ppm = 348.0 618 c solaire = 1365.0 617 619 618 620 c -
LMDZ.3.3/branches/rel-LF/libf/dyn3d/gcm.F
r403 r431 272 272 PRINT*,'WARNING!!! changement de pas de temps',dtvr,'>',zdtvr 273 273 ENDIF 274 C 275 C on remet le calendrier à zero 276 c 277 if (annee_ref .ne. anneeref .or. day_ref .ne. dayref) then 278 write(*,*)' Attention les dates initiales lues dans le fichier' 279 write(*,*)' restart ne correspondent pas a celles lues dans ' 280 write(*,*)' gcm.def' 281 if (raz_date .ne. 1) then 282 write(*,*)' On garde les dates du fichier restart' 283 else 284 annee_ref = anneeref 285 day_ref = dayref 286 itau_dyn = 0 287 itau_phy = 0 288 write(*,*)' On reinitialise a la date lue dans gcm.def' 289 endif 290 endif 274 291 275 292 c nombre d'etats dans les fichiers demarrage et histoire
Note: See TracChangeset
for help on using the changeset viewer.