Changeset 2141 for LMDZ5/trunk/libf/dyn3d
- Timestamp:
- Nov 10, 2014, 6:32:56 PM (10 years ago)
- File:
-
- 1 edited
-
LMDZ5/trunk/libf/dyn3d/conf_gcm.F (modified) (18 diffs)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3d/conf_gcm.F
r2083 r2141 355 355 CALL getin('ok_guide',ok_guide) 356 356 357 ! ...............................................................358 359 357 !Config Key = read_start 360 358 !Config Desc = Initialize model using a 'start.nc' file … … 381 379 CALL getin('iphysiq', iphysiq) 382 380 381 if (mod(iphysiq, iperiod) /= 0) call abort_gcm("conf_gcm", 382 $ "iphysiq must be a multiple of iperiod", 1) 383 383 384 !Config Key = ip_ebil_dyn 384 385 !Config Desc = PRINT level for energy conserv. diag. … … 421 422 ! 422 423 IF( ABS(clat - clatt).GE. 0.001 ) THEN 423 write(lunout,*)'conf_gcm: La valeur de clat passee par run.def', &424 write(lunout,*)'conf_gcm: La valeur de clat passee par run.def', 424 425 & ' est differente de celle lue sur le fichier start ' 425 426 STOP … … 436 437 437 438 IF( ABS(grossismx - grossismxx).GE. 0.001 ) THEN 438 write(lunout,*)'conf_gcm: La valeur de grossismx passee par ', &439 write(lunout,*)'conf_gcm: La valeur de grossismx passee par ', 439 440 & 'run.def est differente de celle lue sur le fichier start ' 440 441 STOP … … 450 451 451 452 IF( ABS(grossismy - grossismyy).GE. 0.001 ) THEN 452 write(lunout,*)'conf_gcm: La valeur de grossismy passee par ', &453 write(lunout,*)'conf_gcm: La valeur de grossismy passee par ', 453 454 & 'run.def est differente de celle lue sur le fichier start ' 454 455 STOP … … 456 457 457 458 IF( grossismx.LT.1. ) THEN 458 write(lunout,*) &459 write(lunout,*) 459 460 & 'conf_gcm: *** ATTENTION !! grossismx < 1 . *** ' 460 461 STOP … … 465 466 466 467 IF( grossismy.LT.1. ) THEN 467 write(lunout,*) &468 write(lunout,*) 468 469 & 'conf_gcm: *** ATTENTION !! grossismy < 1 . *** ' 469 470 STOP … … 489 490 IF( fxyhypbb ) THEN 490 491 write(lunout,*)' ******** PBS DANS CONF_GCM ******** ' 491 write(lunout,*)' *** fxyhypb lu sur le fichier start est ', &492 &'F alors qu il est T sur run.def ***'492 write(lunout,*)' *** fxyhypb lu sur le fichier start est ', 493 * 'F alors qu il est T sur run.def ***' 493 494 STOP 494 495 ENDIF … … 496 497 IF( .NOT.fxyhypbb ) THEN 497 498 write(lunout,*)' ******** PBS DANS CONF_GCM ******** ' 498 write(lunout,*)' *** fxyhypb lu sur le fichier start est ', &499 &'T alors qu il est F sur run.def **** '499 write(lunout,*)' *** fxyhypb lu sur le fichier start est ', 500 * 'T alors qu il est F sur run.def **** ' 500 501 STOP 501 502 ENDIF … … 512 513 IF( fxyhypb ) THEN 513 514 IF( ABS(dzoomx - dzoomxx).GE. 0.001 ) THEN 514 write(lunout,*)'conf_gcm: La valeur de dzoomx passee par ', &515 &'run.def est differente de celle lue sur le fichier start '515 write(lunout,*)'conf_gcm: La valeur de dzoomx passee par ', 516 * 'run.def est differente de celle lue sur le fichier start ' 516 517 STOP 517 518 ENDIF … … 528 529 IF( fxyhypb ) THEN 529 530 IF( ABS(dzoomy - dzoomyy).GE. 0.001 ) THEN 530 write(lunout,*)'conf_gcm: La valeur de dzoomy passee par ', &531 &'run.def est differente de celle lue sur le fichier start '531 write(lunout,*)'conf_gcm: La valeur de dzoomy passee par ', 532 * 'run.def est differente de celle lue sur le fichier start ' 532 533 STOP 533 534 ENDIF … … 543 544 IF( fxyhypb ) THEN 544 545 IF( ABS(taux - tauxx).GE. 0.001 ) THEN 545 write(lunout,*)'conf_gcm: La valeur de taux passee par ', &546 &'run.def est differente de celle lue sur le fichier start '546 write(lunout,*)'conf_gcm: La valeur de taux passee par ', 547 * 'run.def est differente de celle lue sur le fichier start ' 547 548 STOP 548 549 ENDIF … … 558 559 IF( fxyhypb ) THEN 559 560 IF( ABS(tauy - tauyy).GE. 0.001 ) THEN 560 write(lunout,*)'conf_gcm: La valeur de tauy passee par ', &561 &'run.def est differente de celle lue sur le fichier start '561 write(lunout,*)'conf_gcm: La valeur de tauy passee par ', 562 * 'run.def est differente de celle lue sur le fichier start ' 562 563 STOP 563 564 ENDIF … … 579 580 IF( ysinuss ) THEN 580 581 write(lunout,*)' ******** PBS DANS CONF_GCM ******** ' 581 write(lunout,*)' *** ysinus lu sur le fichier start est F', &582 &' alors qu il est T sur run.def ***'582 write(lunout,*)' *** ysinus lu sur le fichier start est F', 583 * ' alors qu il est T sur run.def ***' 583 584 STOP 584 585 ENDIF … … 586 587 IF( .NOT.ysinuss ) THEN 587 588 write(lunout,*)' ******** PBS DANS CONF_GCM ******** ' 588 write(lunout,*)' *** ysinus lu sur le fichier start est T', &589 &' alors qu il est F sur run.def **** '589 write(lunout,*)' *** ysinus lu sur le fichier start est T', 590 * ' alors qu il est F sur run.def **** ' 590 591 STOP 591 592 ENDIF … … 725 726 726 727 IF( grossismx.LT.1. ) THEN 727 write(lunout,*)'conf_gcm: ***ATTENTION !! grossismx < 1 . *** ' 728 write(lunout,*) 729 & 'conf_gcm: *** ATTENTION !! grossismx < 1 . *** ' 728 730 STOP 729 731 ELSE … … 869 871 vert_prof_dissip = merge(1, 0, ok_strato .and. llm==39) 870 872 CALL getin('vert_prof_dissip', vert_prof_dissip) 871 call assert(vert_prof_dissip == 0 .or. vert_prof_dissip == 1, &872 &"bad value for vert_prof_dissip")873 call assert(vert_prof_dissip == 0 .or. vert_prof_dissip == 1, 874 $ "bad value for vert_prof_dissip") 873 875 874 876 !Config Key = ok_gradsfile … … 897 899 898 900 write(lunout,*)' #########################################' 899 write(lunout,*)' Configuration des parametres de cel0' &901 write(lunout,*)' Configuration des parametres de cel0' 900 902 & //'_limit: ' 901 903 write(lunout,*)' planet_type = ', planet_type
Note: See TracChangeset
for help on using the changeset viewer.
