Changeset 45 for LMDZ.3.3/trunk/libf/phylmd/phyetat0.F
- Timestamp:
- Feb 9, 2000, 11:32:30 AM (24 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/trunk/libf/phylmd/phyetat0.F
r2 r45 2 2 . rlat,rlon,tsol,tsoil,deltat,qsol,snow, 3 3 . radsol,rugmer,agesno,clesphy0, 4 . zmea,zstd,zsig,zgam,zthe,zpic,zval,rugsrel,tabcntr0) 4 . zmea,zstd,zsig,zgam,zthe,zpic,zval,rugsrel,tabcntr0, 5 . t_ancien,q_ancien,ancien_ok) 5 6 IMPLICIT none 6 7 c====================================================================== … … 38 39 REAL rugsrel(klon) 39 40 41 REAL t_ancien(klon,klev), q_ancien(klon,klev) 42 LOGICAL ancien_ok 43 40 44 INTEGER longcles 41 45 PARAMETER ( longcles = 20 ) … … 674 678 PRINT*,'Rugosite relief (ecart-type) rugsrel:', xmin, xmax 675 679 c 680 c 681 ancien_ok = .TRUE. 682 c 683 ierr = NF_INQ_VARID (nid, "TANCIEN", nvarid) 684 IF (ierr.NE.NF_NOERR) THEN 685 PRINT*, "phyetat0: Le champ <TANCIEN> est absent" 686 PRINT*, "Depart legerement fausse. Mais je continue" 687 ancien_ok = .FALSE. 688 ELSE 689 #ifdef NC_DOUBLE 690 ierr = NF_GET_VAR_DOUBLE(nid, nvarid, t_ancien) 691 #else 692 ierr = NF_GET_VAR_REAL(nid, nvarid, t_ancien) 693 #endif 694 IF (ierr.NE.NF_NOERR) THEN 695 PRINT*, "phyetat0: Lecture echouee pour <TANCIEN>" 696 CALL abort 697 ENDIF 698 ENDIF 699 c 700 ierr = NF_INQ_VARID (nid, "QANCIEN", nvarid) 701 IF (ierr.NE.NF_NOERR) THEN 702 PRINT*, "phyetat0: Le champ <QANCIEN> est absent" 703 PRINT*, "Depart legerement fausse. Mais je continue" 704 ancien_ok = .FALSE. 705 ELSE 706 #ifdef NC_DOUBLE 707 ierr = NF_GET_VAR_DOUBLE(nid, nvarid, q_ancien) 708 #else 709 ierr = NF_GET_VAR_REAL(nid, nvarid, q_ancien) 710 #endif 711 IF (ierr.NE.NF_NOERR) THEN 712 PRINT*, "phyetat0: Lecture echouee pour <QANCIEN>" 713 CALL abort 714 ENDIF 715 ENDIF 716 c 676 717 c Fermer le fichier: 677 718 c
Note: See TracChangeset
for help on using the changeset viewer.