Ignore:
Timestamp:
Sep 20, 2006, 12:12:39 PM (18 years ago)
Author:
Laurent Fairhead
Message:

Nouvelles versions de la dynamique YM
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/V3_test/libf/dyn3dpar/dynredem_p.F

    r630 r709  
    147147c
    148148      ierr = NF_REDEF (nid)
     149cIM 220306 BEG
     150#ifdef NC_DOUBLE
     151      ierr = NF_DEF_VAR (nid,"controle",NF_DOUBLE,1,idim_index,nvarid)
     152#else
    149153      ierr = NF_DEF_VAR (nid,"controle",NF_FLOAT,1,idim_index,nvarid)
     154#endif
     155cIM 220306 END
    150156      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22,
    151157     .                       "Parametres de controle")
    … …  
    158164c
    159165      ierr = NF_REDEF (nid)
     166cIM 220306 BEG
     167#ifdef NC_DOUBLE
     168      ierr = NF_DEF_VAR (nid,"rlonu",NF_DOUBLE,1,idim_rlonu,nvarid)
     169#else
    160170      ierr = NF_DEF_VAR (nid,"rlonu",NF_FLOAT,1,idim_rlonu,nvarid)
     171#endif
     172cIM 220306 END
    161173      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 23,
    162174     .                       "Longitudes des points U")
    … …  
    169181c
    170182      ierr = NF_REDEF (nid)
     183cIM 220306 BEG
     184#ifdef NC_DOUBLE
     185      ierr = NF_DEF_VAR (nid,"rlatu",NF_DOUBLE,1,idim_rlatu,nvarid)
     186#else
    171187      ierr = NF_DEF_VAR (nid,"rlatu",NF_FLOAT,1,idim_rlatu,nvarid)
     188#endif
     189cIM 220306 END
    172190      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22,
    173191     .                       "Latitudes des points U")
    … …  
    180198c
    181199      ierr = NF_REDEF (nid)
     200cIM 220306 BEG
     201#ifdef NC_DOUBLE
     202      ierr = NF_DEF_VAR (nid,"rlonv",NF_DOUBLE,1,idim_rlonv,nvarid)
     203#else
    182204      ierr = NF_DEF_VAR (nid,"rlonv",NF_FLOAT,1,idim_rlonv,nvarid)
     205#endif
     206cIM 220306 END
    183207      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 23,
    184208     .                       "Longitudes des points V")
    … …  
    191215c
    192216      ierr = NF_REDEF (nid)
     217cIM 220306 BEG
     218#ifdef NC_DOUBLE
     219      ierr = NF_DEF_VAR (nid,"rlatv",NF_DOUBLE,1,idim_rlatv,nvarid)
     220#else
    193221      ierr = NF_DEF_VAR (nid,"rlatv",NF_FLOAT,1,idim_rlatv,nvarid)
     222#endif
     223cIM 220306 END
    194224      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22,
    195225     .                       "Latitudes des points V")
    … …  
    202232c
    203233      ierr = NF_REDEF (nid)
     234cIM 220306 BEG
     235#ifdef NC_DOUBLE
     236      ierr = NF_DEF_VAR (nid,"nivsigs",NF_DOUBLE,1,idim_s,nvarid)
     237#else
    204238      ierr = NF_DEF_VAR (nid,"nivsigs",NF_FLOAT,1,idim_s,nvarid)
     239#endif
     240cIM 220306 END
    205241      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 28,
    206242     .                       "Numero naturel des couches s")
    … …  
    213249c
    214250      ierr = NF_REDEF (nid)
     251cIM 220306 BEG
     252#ifdef NC_DOUBLE
     253      ierr = NF_DEF_VAR (nid,"nivsig",NF_DOUBLE,1,idim_sig,nvarid)
     254#else
    215255      ierr = NF_DEF_VAR (nid,"nivsig",NF_FLOAT,1,idim_sig,nvarid)
     256#endif
     257cIM 220306 END
    216258      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 32,
    217259     .                       "Numero naturel des couches sigma")
    … …  
    224266c
    225267      ierr = NF_REDEF (nid)
     268cIM 220306 BEG
     269#ifdef NC_DOUBLE
     270      ierr = NF_DEF_VAR (nid,"ap",NF_DOUBLE,1,idim_sig,nvarid)
     271#else
    226272      ierr = NF_DEF_VAR (nid,"ap",NF_FLOAT,1,idim_sig,nvarid)
     273#endif
     274cIM 220306 END
    227275      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 26,
    228276     .                       "Coefficient A pour hybride")
    … …  
    235283c
    236284      ierr = NF_REDEF (nid)
     285cIM 220306 BEG
     286#ifdef NC_DOUBLE
     287      ierr = NF_DEF_VAR (nid,"bp",NF_DOUBLE,1,idim_sig,nvarid)
     288#else
    237289      ierr = NF_DEF_VAR (nid,"bp",NF_FLOAT,1,idim_sig,nvarid)
     290#endif
     291cIM 220306 END
    238292      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 26,
    239293     .                       "Coefficient B pour hybride")
    … …  
    246300c
    247301      ierr = NF_REDEF (nid)
     302cIM 220306 BEG
     303#ifdef NC_DOUBLE
     304      ierr = NF_DEF_VAR (nid,"presnivs",NF_DOUBLE,1,idim_s,nvarid)
     305#else
    248306      ierr = NF_DEF_VAR (nid,"presnivs",NF_FLOAT,1,idim_s,nvarid)
     307#endif
     308cIM 220306 END
    249309      ierr = NF_ENDDEF(nid)
    250310#ifdef NC_DOUBLE
    … …  
    259319      dims2(1) = idim_rlonu
    260320      dims2(2) = idim_rlatu
     321cIM 220306 BEG
     322#ifdef NC_DOUBLE
     323      ierr = NF_DEF_VAR (nid,"cu",NF_DOUBLE,2,dims2,nvarid)
     324#else
    261325      ierr = NF_DEF_VAR (nid,"cu",NF_FLOAT,2,dims2,nvarid)
     326#endif
     327cIM 220306 END
    262328      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 29,
    263329     .                       "Coefficient de passage pour U")
    … …  
    272338      dims2(1) = idim_rlonv
    273339      dims2(2) = idim_rlatv
     340cIM 220306 BEG
     341#ifdef NC_DOUBLE
     342      ierr = NF_DEF_VAR (nid,"cv",NF_DOUBLE,2,dims2,nvarid)
     343#else
    274344      ierr = NF_DEF_VAR (nid,"cv",NF_FLOAT,2,dims2,nvarid)
     345#endif
     346cIM 220306 END
    275347      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 29,
    276348     .                       "Coefficient de passage pour V")
    … …  
    287359      dims2(1) = idim_rlonv
    288360      dims2(2) = idim_rlatu
     361cIM 220306 BEG
     362#ifdef NC_DOUBLE
     363      ierr = NF_DEF_VAR (nid,"aire",NF_DOUBLE,2,dims2,nvarid)
     364#else
    289365      ierr = NF_DEF_VAR (nid,"aire",NF_FLOAT,2,dims2,nvarid)
     366#endif
     367cIM 220306 END
    290368      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22,
    291369     .                       "Aires de chaque maille")
    … …  
    302380      dims2(1) = idim_rlonv
    303381      dims2(2) = idim_rlatu
     382cIM 220306 BEG
     383#ifdef NC_DOUBLE
     384      ierr = NF_DEF_VAR (nid,"phisinit",NF_DOUBLE,2,dims2,nvarid)
     385#else
    304386      ierr = NF_DEF_VAR (nid,"phisinit",NF_FLOAT,2,dims2,nvarid)
     387#endif
     388cIM 220306 END
    305389      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 19,
    306390     .                       "Geopotentiel au sol")
    … …  
    316400      ierr = NF_REDEF (nid) ! entrer dans le mode de definition
    317401c
     402cIM 220306 BEG
     403#ifdef NC_DOUBLE
     404      ierr = NF_DEF_VAR (nid,"temps",NF_DOUBLE,1,idim_tim,nvarid)
     405#else
    318406      ierr = NF_DEF_VAR (nid,"temps",NF_FLOAT,1,idim_tim,nvarid)
     407#endif
     408cIM 220306 END
    319409      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 19,
    320410     .                       "Temps de simulation")
    … …  
    329419      dims4(3) = idim_s
    330420      dims4(4) = idim_tim
     421cIM 220306 BEG
     422#ifdef NC_DOUBLE
     423      ierr = NF_DEF_VAR (nid,"ucov",NF_DOUBLE,4,dims4,nvarid)
     424#else
    331425      ierr = NF_DEF_VAR (nid,"ucov",NF_FLOAT,4,dims4,nvarid)
     426#endif
     427cIM 220306 END
    332428      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 9,
    333429     .                       "Vitesse U")
    … …  
    337433      dims4(3) = idim_s
    338434      dims4(4) = idim_tim
     435cIM 220306 BEG
     436#ifdef NC_DOUBLE
     437      ierr = NF_DEF_VAR (nid,"vcov",NF_DOUBLE,4,dims4,nvarid)
     438#else
    339439      ierr = NF_DEF_VAR (nid,"vcov",NF_FLOAT,4,dims4,nvarid)
     440#endif
     441cIM 220306 END
    340442      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 9,
    341443     .                       "Vitesse V")
    … …  
    345447      dims4(3) = idim_s
    346448      dims4(4) = idim_tim
     449cIM 220306 BEG
     450#ifdef NC_DOUBLE
     451      ierr = NF_DEF_VAR (nid,"teta",NF_DOUBLE,4,dims4,nvarid)
     452#else
    347453      ierr = NF_DEF_VAR (nid,"teta",NF_FLOAT,4,dims4,nvarid)
     454#endif
     455cIM 220306 END
    348456      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 11,
    349457     .                       "Temperature")
    … …  
    355463      IF(nq.GE.1) THEN
    356464      DO iq=1,nq
     465cIM 220306 BEG
     466#ifdef NC_DOUBLE
     467      ierr = NF_DEF_VAR (nid,tname(iq),NF_DOUBLE,4,dims4,nvarid)
     468#else
    357469      ierr = NF_DEF_VAR (nid,tname(iq),NF_FLOAT,4,dims4,nvarid)
     470#endif
     471cIM 220306 END
    358472      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 12,ttext(iq))
    359473      ENDDO
    … …  
    364478      dims4(3) = idim_s
    365479      dims4(4) = idim_tim
     480cIM 220306 BEG
     481#ifdef NC_DOUBLE
     482      ierr = NF_DEF_VAR (nid,"masse",NF_DOUBLE,4,dims4,nvarid)
     483#else
    366484      ierr = NF_DEF_VAR (nid,"masse",NF_FLOAT,4,dims4,nvarid)
     485#endif
     486cIM 220306 END
    367487      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 12,
    368488     .                       "C est quoi ?")
    … …  
    371491      dims3(2) = idim_rlatu
    372492      dims3(3) = idim_tim
     493cIM 220306 BEG
     494#ifdef NC_DOUBLE
     495      ierr = NF_DEF_VAR (nid,"ps",NF_DOUBLE,3,dims3,nvarid)
     496#else
    373497      ierr = NF_DEF_VAR (nid,"ps",NF_FLOAT,3,dims3,nvarid)
     498#endif
     499cIM 220306 END
    374500      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 15,
    375501     .                       "Pression au sol")
    … …  
    377503      ierr = NF_ENDDEF(nid) ! sortir du mode de definition
    378504      ierr = NF_CLOSE(nid) ! fermer le fichier
     505
    379506
    380507      PRINT*,'iim,jjm,llm,iday_end',iim,jjm,llm,iday_end
Note: See TracChangeset for help on using the changeset viewer.