Changeset 1912 for LMDZ5/trunk/libf/phylmd/physiq.F90
- Timestamp:
- Dec 5, 2013, 6:32:35 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/physiq.F90
r1907 r1912 493 493 REAL un_jour 494 494 PARAMETER(un_jour=86400.) 495 INTEGER itapm1 496 SAVE itapm1 495 497 !====================================================================== 496 498 ! … … 3431 3433 ! SORTIES 3432 3434 !======================================================================= 3433 3435 ! 3436 !IM initialisation + calculs divers diag AMIP2 3437 ! 3438 include "calcul_divers.h" 3439 ! 3434 3440 !IM Interpolation sur les niveaux de pression du NMC 3435 3441 ! ------------------------------------------------- … … 3448 3454 ENDDO 3449 3455 ENDDO 3450 !3451 !IM initialisation + calculs divers diag AMIP23452 !3453 include "calcul_divers.h"3454 3456 ! 3455 3457 IF (type_trac == 'inca') THEN
Note: See TracChangeset
for help on using the changeset viewer.