Nbre d'appel à cdrag buggé?

[Laurent Fairhead]

Pour une raison trop compliquée à expliquer, j'ai compté le nombre de fois qu'on appel cdrag.F90 par pas de temps de la physique sur une maille océanique. Résultat des courses :

Appel a cdrag sous surface # 1 klon= 1
Appel a cdrag sous surface # 1 klon= 1
Appel a cdrag sous surface # 1 klon= 1
Appel a cdrag sous surface # 1 klon= 1
Appel a cdrag sous surface # 1 klon= 1
Appel a cdrag sous surface # 1 klon= 1
Appel a cdrag sous surface # 1 klon= 1
Appel a cdrag sous surface # 1 klon= 1
Appel a cdrag sous surface # 1 klon= 1
Appel a cdrag sous surface # 1 klon= 1
Appel a cdrag sous surface # 1 klon= 1
Appel a cdrag sous surface # 2 klon= 1
Appel a cdrag sous surface # 2 klon= 1
Appel a cdrag sous surface # 2 klon= 1
Appel a cdrag sous surface # 2 klon= 1
Appel a cdrag sous surface # 2 klon= 1
Appel a cdrag sous surface # 2 klon= 1
Appel a cdrag sous surface # 3 klon= 1
Appel a cdrag sous surface # 3 klon= 1
Appel a cdrag sous surface # 3 klon= 1
Appel a cdrag sous surface # 3 klon= 1
Appel a cdrag sous surface # 3 klon= 1
Appel a cdrag sous surface # 3 klon= 1
Appel a cdrag sous surface # 4 klon= 1
Appel a cdrag sous surface # 4 klon= 1
Appel a cdrag sous surface # 4 klon= 1
Appel a cdrag sous surface # 4 klon= 1
Appel a cdrag sous surface # 4 klon= 1
Appel a cdrag sous surface # 4 klon= 1

11 fois pour la première sous surface.
6 fois pour les 3 autres.

C'est grave docteur ?

Ca évoque quelque chose à quelqu'un ?

J'imagine qu'on l'appelle sur les sous surfaces non utilisées parce queon ne veut pas ne pas appeler les routines.

Mais là ...

[Laurent Fairhead]

Sauf erreur, ça doit faire 6 fois par sous-surface, par maille et par pas de temps si iflag_split == 0 :

1 fois directement par pbl_surface

1 fois directement par stdlevvar

4 fois par screenc

et je n'ai pas compté pour iflag_split /= 0 mais ça doit faire deux fois plus d'appels.

Lionel