Changeset 2134 for LMDZ5/trunk/libf/dyn3dmem/guide_loc_mod.F90
- Timestamp:
- Oct 24, 2014, 7:53:24 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3dmem/guide_loc_mod.F90
r2124 r2134 68 68 69 69 SUBROUTINE guide_init 70 70 71 71 USE control_mod 72 72 73 IMPLICIT NONE 73 74 … … 75 76 INCLUDE "paramet.h" 76 77 INCLUDE "netcdf.inc" 78 79 ! For grossismx: 80 include "serre.h" 77 81 78 82 INTEGER :: error,ncidpl,rid,rcod … … 94 98 CALL getpar('guide_add',.false.,guide_add,'for�age constant?') 95 99 CALL getpar('guide_zon',.false.,guide_zon,'guidage moy zonale') 100 if (guide_zon .and. abs(grossismx - 1.) > 0.01) & 101 call abort_gcm("guide_init", & 102 "zonal nudging requires grid regular in longitude", 1) 96 103 97 104 ! Constantes de rappel. Unite : fraction de jour … … 1519 1526 enddo 1520 1527 enddo 1521 1522 1528 ENDIF ! guide_reg 1529 1530 if (.not. guide_add) alpha = 1. - exp(- alpha) 1523 1531 1524 1532 END SUBROUTINE tau2alpha
Note: See TracChangeset
for help on using the changeset viewer.