Changeset 2311 for LMDZ5/trunk/libf/phylmd/condsurf.F90
- Timestamp:
- Jun 25, 2015, 9:45:24 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/condsurf.F90
r1992 r2311 56 56 IF (jour<0 .OR. jour>(360-1)) THEN 57 57 PRINT *, 'Le jour demande n est pas correct: ', jour 58 CALL abort_ gcm('condsurf', '', 1)58 CALL abort_physic('condsurf', '', 1) 59 59 END IF 60 60 … … 76 76 PRINT *, ' trouve pas sur les ', nannemax, ' annees a partir de ' 77 77 PRINT *, ' l annee de debut', annee_ref 78 CALL abort_ gcm('condsurf', '', 1)78 CALL abort_physic('condsurf', '', 1) 79 79 80 80 100 CONTINUE … … 96 96 WRITE (6, *) ' l an 2000 ) , n existe pas ! ' 97 97 WRITE (6, *) ' ierr = ', ierr 98 CALL abort_ gcm('condsurf', '', 1)98 CALL abort_physic('condsurf', '', 1) 99 99 END IF 100 100 ! DO k = 1, jour … … 109 109 ierr = nf_inq_varid(nid, 'BILS', nvarid) 110 110 IF (ierr/=nf_noerr) THEN 111 CALL abort_ gcm('cond_surf', 'Le champ <BILS> est absent', 1)111 CALL abort_physic('cond_surf', 'Le champ <BILS> est absent', 1) 112 112 END IF 113 113 PRINT *, 'debut,epais', debut, epais, 'jour,jourvrai', jour, jourvrai … … 118 118 #endif 119 119 IF (ierr/=nf_noerr) THEN 120 CALL abort_ gcm('condsurf', 'Lecture echouee pour <BILS>', 1)120 CALL abort_physic('condsurf', 'Lecture echouee pour <BILS>', 1) 121 121 END IF 122 122 ! ENDDO !k = 1, jour
Note: See TracChangeset
for help on using the changeset viewer.