Changeset 2134 for LMDZ5/trunk/libf/dyn3d/guide_mod.F90
- Timestamp:
- Oct 24, 2014, 7:53:24 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3d/guide_mod.F90
r2124 r2134 71 71 INCLUDE "netcdf.inc" 72 72 73 ! For grossismx: 74 include "serre.h" 75 73 76 INTEGER :: error,ncidpl,rid,rcod 74 77 CHARACTER (len = 80) :: abort_message … … 89 92 CALL getpar('guide_add',.false.,guide_add,'for�age constant?') 90 93 CALL getpar('guide_zon',.false.,guide_zon,'guidage moy zonale') 94 if (guide_zon .and. abs(grossismx - 1.) > 0.01) & 95 call abort_gcm("guide_init", & 96 "zonal nudging requires grid regular in longitude", 1) 91 97 92 98 ! Constantes de rappel. Unite : fraction de jour … … 112 118 ELSE if (iguide_sav == 0) then 113 119 iguide_sav = huge(0) 114 else120 ELSE 115 121 iguide_sav=day_step*iguide_sav 116 122 ENDIF … … 127 133 ! Parametres pour lecture des fichiers 128 134 CALL getpar('iguide_read',4,iguide_read,'freq. lecture guidage') 129 CALL getpar('iguide_int',4,iguide_int,'freq. lecture guidage') 130 IF (iguide_int.GT.0) THEN 135 CALL getpar('iguide_int',4,iguide_int,'freq. interpolation vert') 136 IF (iguide_int.EQ.0) THEN 137 iguide_int=1 138 ELSEIF (iguide_int.GT.0) THEN 131 139 iguide_int=day_step/iguide_int 132 140 ELSE … … 1004 1012 enddo 1005 1013 ENDIF ! guide_reg 1014 1015 if (.not. guide_add) alpha = 1. - exp(- alpha) 1006 1016 1007 1017 END SUBROUTINE tau2alpha
Note: See TracChangeset
for help on using the changeset viewer.