La plus grande différence de phasage:
=====================================
zoombc_2D.F
=====================================
Qui n'a rien à voir avec les 2 versions de code utilisé.
D'où vient elle? Est ce un héritage involontaire ou y a t il une raison pour ne pas prendre la version du code?
=====================================
p4zsbc.F90
=====================================
Vérifier l'unité.
A priori pas de modif comme Steph. Il faut bien diviser par la période comme dans le code d'origine
! modif SPOUS ASAP
! dustmo(ji,jj,irec) = dustmp(ji,jj,irec) / rmtss
dustmo(ji,jj,irec) = dustmp(ji,jj,irec)
ASAP ne doit pas diviser mais le senegal oui (version par defaut) .
=====================================
Routine écrasée dans MY_SRC car intégrées dans la version commune croco_locean_v1.00
=====================================
ana_initial.F
analytical.F
cross_matrix.F
get_bry_bio.F
get_psource_ts.F
get_tclima.F
init_scalars.F
main.F
ncscrum.h
zoom.F
oce_sed.F90
modtypes.F90_IN_AGRIF_AGRIF_FILES = modtypes.F90
strings.h
=====================================
inutilisées et donc virées:
=====================================
ncjoin.F
partit.F
=====================================
Mis pour test par Pierre puis viré :
=====================================
diff c11s2cp_climatoruns/compile/croco/sms_pisces.F90 $PISCES
36d35
< LOGICAL :: ln_sed_2way !: Flag to enable sediment module 2 way
=====================================
diff $OCEAN/read_inp.F .
=====================================
dans la version MY_SRC, vous virez les tests sur le modèle de bio pour avoir le print diag avec PISCES?
1915d1914
< # if (defined BIO_NChlPZD && defined OXYGEN) || defined BIO_BioEBUS
1928d1926
< # endif
1960d1957
< # if (defined BIO_NChlPZD && defined OXYGEN) || defined BIO_BioEBUS
1973d1969
< # endif
=====================================
diff $OCEAN/set_nudgcof.F .
=====================================
Je vire set_nudgcof.Focean car pas utilisé et même version que dans croco_locean_v1.00
Question pour set_nudgcof.F:
OK pour la modif clé MPI.
Vous remplacez CANARY par CANARY2 pour éviter de passer dans la boucle qui définit une sponge spéciale pour les CANARY et IBERIA et dont vous ne voulez pas?
Si oui on laisse, mais il faut remplacer cff_sponge par sed_sponge parce que cff_sponge n'existe plus.
38a39
> # ifdef MPI
39a41
> # endif
120c122
< & sed_sponge(i,j)=float(ibnd)/float(isp)
---
> & cff_sponge(i,j)=float(ibnd)/float(isp)
249c251
< # if defined CANARY || defined IBERIA
---
> # if defined CANARY2 || defined IBERIA
=====================================
diff $OCEAN/step3d_t.F . (à intégrer dans version croco commune)
=====================================
si la clé TS_MIX_ISO /* or Isopycnal rotation */
est activée
mélange le long des isopycne pour les traceurs passifs.
Alors une différence de densité sur la verticale dRz est utilisée
Modif Steph pour éviter de diviser par dRz quand dRz=0
Problématique que quand on met des options strict de compilation pour débuter
538a539,543
> ! modif SPOUS ASAP
> if (dRz .eq. 0) then
> ! write(*,*) 'step3d_t mynode', mynode
> cff = -1.E-14
> else
539a545,547
> endif
> ! cff = min( 1./dRz,-1.E-14 ) ! minimum stratification
imposed
> ! modif SPOUS ASAP
=====================================
J'ajoute trcini_pisces.F90 (à intégrer dans version croco commune)
=====================================
pour ajouter la coupure ligne
Pas un bug mais évite des options de compilation pour prendre en compte les lignes longues.
diff $PISCES/trcini_pisces.F90 .
333c333,334
< IF(lwm) CALL ctl_opn( numonp , 'output.namelist.pis' , 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
---
> IF(lwm) CALL ctl_opn( numonp , 'output.namelist.pis' &
> & , 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )