Ignore:
Timestamp:
May 9, 2008, 6:17:59 PM (16 years ago)
Author:
lmdzadmin
Message:

Nettoyage du controle des parametres physiques. FH

Les parametres cycle_diurne, soil_model, new_oliq, ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad et iflag_con
sont maintenant geres par la physique uniquement.
ecritphy est elimine.
dimphy.F90 et clesphys.h ne sont plus utilises par le code dynamique.
Le test academique obtenu en compilant avec
makegcm -p nophys gcm
fonctionne. FH
IM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3d/write_paramLMDZ_dyn.h

    r825 r956  
     1! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
     2! Attention : il n'y a aucune raison pour ecrire ces constantes
     3! comme des champs 2D. A corriger un jour ...
     4
    15c
    26      ndex2d = 0
    … …  
    119123     .               zx_tmp_2d,iip1*jjp1,ndex2d)
    120124c
    121       zx_tmp_2d(1:iip1,1:jjp1)=ecritphy
    122       CALL histwrite(nid_ctesGCM, "ecritphy", itau_w,
    123      .               zx_tmp_2d,iip1*jjp1,ndex2d)
    124 c
    125       IF(cycle_diurne) THEN
    126        zx_tmp_2d(1:iip1,1:jjp1)=1.
    127       ELSE
    128        zx_tmp_2d(1:iip1,1:jjp1)=0.
    129       ENDIF
    130       CALL histwrite(nid_ctesGCM, "cycle_diurne", itau_w,
    131      .               zx_tmp_2d,iip1*jjp1,ndex2d)
    132 c
    133       IF(soil_model) THEN
    134        zx_tmp_2d(1:iip1,1:jjp1)=1.
    135       ELSE
    136        zx_tmp_2d(1:iip1,1:jjp1)=0.
    137       ENDIF
    138       CALL histwrite(nid_ctesGCM, "soil_model", itau_w,
    139      .               zx_tmp_2d,iip1*jjp1,ndex2d)
    140 c
    141       IF(new_oliq) THEN
    142        zx_tmp_2d(1:iip1,1:jjp1)=1.
    143       ELSE
    144        zx_tmp_2d(1:iip1,1:jjp1)=0.
    145       ENDIF
    146       CALL histwrite(nid_ctesGCM, "new_oliq", itau_w,
    147      .               zx_tmp_2d,iip1*jjp1,ndex2d)
    148 c
    149       IF(ok_orodr) THEN
    150        zx_tmp_2d(1:iip1,1:jjp1)=1.
    151       ELSE
    152        zx_tmp_2d(1:iip1,1:jjp1)=0.
    153       ENDIF
    154       CALL histwrite(nid_ctesGCM, "ok_orodr", itau_w,
    155      .               zx_tmp_2d,iip1*jjp1,ndex2d)
    156 c
    157       IF(ok_orolf) THEN
    158        zx_tmp_2d(1:iip1,1:jjp1)=1.
    159       ELSE
    160        zx_tmp_2d(1:iip1,1:jjp1)=0.
    161       ENDIF
    162       CALL histwrite(nid_ctesGCM, "ok_orolf", itau_w,
    163      .               zx_tmp_2d,iip1*jjp1,ndex2d)
    164 c
    165       IF(ok_limitvrai) THEN
    166        zx_tmp_2d(1:iip1,1:jjp1)=1.
    167       ELSE
    168        zx_tmp_2d(1:iip1,1:jjp1)=0.
    169       ENDIF
    170       CALL histwrite(nid_ctesGCM, "ok_limitvrai", itau_w,
    171      .               zx_tmp_2d,iip1*jjp1,ndex2d)
    172 c
    173       zx_tmp_2d(1:iip1,1:jjp1)=nbapp_rad
    174       CALL histwrite(nid_ctesGCM, "nbapp_rad", itau_w,
    175      .               zx_tmp_2d,iip1*jjp1,ndex2d)
    176 c
    177       zx_tmp_2d(1:iip1,1:jjp1)=iflag_con
    178       CALL histwrite(nid_ctesGCM, "iflag_con", itau_w,
    179      .               zx_tmp_2d,iip1*jjp1,ndex2d)
     125!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     126! FH 2008/05/02
     127! La variable cycle_diurne n'est pas vue par la dynamique
     128!     IF(cycle_diurne) THEN
     129!      zx_tmp_2d(1:iip1,1:jjp1)=1.
     130!     ELSE
     131!      zx_tmp_2d(1:iip1,1:jjp1)=0.
     132!     ENDIF
     133!     CALL histwrite(nid_ctesGCM, "cycle_diurne", itau_w,
     134!    .               zx_tmp_2d,iip1*jjp1,ndex2d)
     135!
     136!     IF(soil_model) THEN
     137!      zx_tmp_2d(1:iip1,1:jjp1)=1.
     138!     ELSE
     139!      zx_tmp_2d(1:iip1,1:jjp1)=0.
     140!     ENDIF
     141!     CALL histwrite(nid_ctesGCM, "soil_model", itau_w,
     142!    .               zx_tmp_2d,iip1*jjp1,ndex2d)
     143!
     144!     IF(new_oliq) THEN
     145!      zx_tmp_2d(1:iip1,1:jjp1)=1.
     146!     ELSE
     147!      zx_tmp_2d(1:iip1,1:jjp1)=0.
     148!     ENDIF
     149!     CALL histwrite(nid_ctesGCM, "new_oliq", itau_w,
     150!    .               zx_tmp_2d,iip1*jjp1,ndex2d)
     151!
     152!     IF(ok_orodr) THEN
     153!      zx_tmp_2d(1:iip1,1:jjp1)=1.
     154!     ELSE
     155!      zx_tmp_2d(1:iip1,1:jjp1)=0.
     156!     ENDIF
     157!     CALL histwrite(nid_ctesGCM, "ok_orodr", itau_w,
     158!    .               zx_tmp_2d,iip1*jjp1,ndex2d)
     159!
     160!     IF(ok_orolf) THEN
     161!      zx_tmp_2d(1:iip1,1:jjp1)=1.
     162!     ELSE
     163!      zx_tmp_2d(1:iip1,1:jjp1)=0.
     164!     ENDIF
     165!     CALL histwrite(nid_ctesGCM, "ok_orolf", itau_w,
     166!    .               zx_tmp_2d,iip1*jjp1,ndex2d)
     167!
     168!     IF(ok_limitvrai) THEN
     169!      zx_tmp_2d(1:iip1,1:jjp1)=1.
     170!     ELSE
     171!      zx_tmp_2d(1:iip1,1:jjp1)=0.
     172!     ENDIF
     173!     CALL histwrite(nid_ctesGCM, "ok_limitvrai", itau_w,
     174!    .               zx_tmp_2d,iip1*jjp1,ndex2d)
     175!
     176!     zx_tmp_2d(1:iip1,1:jjp1)=nbapp_rad
     177!     CALL histwrite(nid_ctesGCM, "nbapp_rad", itau_w,
     178!    .               zx_tmp_2d,iip1*jjp1,ndex2d)
     179!
     180!     zx_tmp_2d(1:iip1,1:jjp1)=iflag_con
     181!     CALL histwrite(nid_ctesGCM, "iflag_con", itau_w,
     182!    .               zx_tmp_2d,iip1*jjp1,ndex2d)
     183!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    180184c
    181185      zx_tmp_2d(1:iip1,1:jjp1)=clon
Note: See TracChangeset for help on using the changeset viewer.