1 |
module limit_mod |
module limit_mod |
2 |
|
|
|
! This module is clean: no C preprocessor directive, no include line. |
|
|
|
|
3 |
IMPLICIT none |
IMPLICIT none |
4 |
|
|
5 |
contains |
contains |
13 |
! Both grids must be regular. |
! Both grids must be regular. |
14 |
|
|
15 |
use dimens_m, only: iim, jjm |
use dimens_m, only: iim, jjm |
|
use comconst, only: daysec, dtvr |
|
16 |
use indicesol, only: epsfra, nbsrf, is_ter, is_oce, is_lic, is_sic |
use indicesol, only: epsfra, nbsrf, is_ter, is_oce, is_lic, is_sic |
17 |
use dimphy, only: klon, zmasq |
use dimphy, only: klon, zmasq |
|
use conf_gcm_m, only: day_step |
|
18 |
use comgeom, only: rlonu, rlatv |
use comgeom, only: rlonu, rlatv |
19 |
use etat0_mod, only: pctsrf |
use etat0_mod, only: pctsrf |
20 |
use start_init_orog_m, only: mask |
use start_init_orog_m, only: mask |
82 |
read (unit=*, nml=limit_nml) |
read (unit=*, nml=limit_nml) |
83 |
write(unit=*, nml=limit_nml) |
write(unit=*, nml=limit_nml) |
84 |
|
|
|
! Initializations: |
|
|
dtvr = daysec / real(day_step) |
|
|
CALL inigeom |
|
|
|
|
85 |
! Process rugosity: |
! Process rugosity: |
86 |
|
|
87 |
PRINT *, 'Processing rugosity...' |
PRINT *, 'Processing rugosity...' |
152 |
jmdep = size(dlat_ini) |
jmdep = size(dlat_ini) |
153 |
|
|
154 |
call nf95_inq_dimid(ncid, "time", dimid) |
call nf95_inq_dimid(ncid, "time", dimid) |
155 |
call NF95_INQuire_DIMension(ncid, dimid, len=lmdep) |
call NF95_INQuire_DIMension(ncid, dimid, nclen=lmdep) |
156 |
print *, 'lmdep = ', lmdep |
print *, 'lmdep = ', lmdep |
157 |
! PM 28/02/2002 : nouvelle coordonnée temporelle, fichiers AMIP |
! PM 28/02/2002 : nouvelle coordonnée temporelle, fichiers AMIP |
158 |
! pas en jours |
! pas en jours |
251 |
jmdep = size(dlat_ini) |
jmdep = size(dlat_ini) |
252 |
|
|
253 |
call nf95_inq_dimid(ncid, "time", dimid) |
call nf95_inq_dimid(ncid, "time", dimid) |
254 |
call NF95_INQuire_DIMension(ncid, dimid, len=lmdep) |
call NF95_INQuire_DIMension(ncid, dimid, nclen=lmdep) |
255 |
print *, 'lmdep = ', lmdep |
print *, 'lmdep = ', lmdep |
256 |
!PM28/02/2002 : nouvelle coord temporelle fichiers AMIP pas en jours |
!PM28/02/2002 : nouvelle coord temporelle fichiers AMIP pas en jours |
257 |
! Ici on suppose qu'on a 12 mois (de 30 jours). |
! Ici on suppose qu'on a 12 mois (de 30 jours). |