New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8076 for branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_fin.F90 – NEMO

Ignore:
Timestamp:
2017-05-26T10:17:21+02:00 (7 years ago)
Author:
marc
Message:

Removed wrk_alloc and wrk_dealloc from bio_medusa_* routines

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_fin.F90

    r8023 r8076  
    5555                                   trbio, trc2d, trc3d 
    5656      USE trcnam_trp,        ONLY: ln_trcadv_cen2, ln_trcadv_tvd 
    57       USE wrk_nemo,          ONLY: wrk_dealloc 
    5857  
    5958      !! time (integer timestep) 
    … …  
    467466         IF ( med_diag%PN_JLIM%dgsave ) THEN 
    468467            CALL iom_put( "PN_JLIM"  , fjln2d ) 
    469             CALL wrk_dealloc( jpi, jpj,   fjln2d  ) 
     468            DEALLOCATE( fjln2d ) 
    470469         ENDIF 
    471470         IF ( med_diag%PN_NLIM%dgsave ) THEN 
    472471            CALL iom_put( "PN_NLIM"  , fnln2d ) 
    473             CALL wrk_dealloc( jpi, jpj,   fnln2d  ) 
     472            DEALLOCATE( fnln2d ) 
    474473         ENDIF 
    475474         IF ( med_diag%PN_FELIM%dgsave ) THEN 
    476475            CALL iom_put( "PN_FELIM"  , ffln2d ) 
    477             CALL wrk_dealloc( jpi, jpj,   ffln2d  ) 
     476            DEALLOCATE( ffln2d ) 
    478477         ENDIF 
    479478         IF ( med_diag%PD_JLIM%dgsave ) THEN 
    480479            CALL iom_put( "PD_JLIM"  , fjld2d ) 
    481             CALL wrk_dealloc( jpi, jpj,  fjld2d    ) 
     480            DEALLOCATE( fjld2d ) 
    482481         ENDIF 
    483482         IF ( med_diag%PD_NLIM%dgsave ) THEN 
    484483            CALL iom_put( "PD_NLIM"  , fnld2d ) 
    485             CALL wrk_dealloc( jpi, jpj,   fnld2d ) 
     484            DEALLOCATE( fnld2d ) 
    486485         ENDIF 
    487486         IF ( med_diag%PD_FELIM%dgsave ) THEN 
    488487            CALL iom_put( "PD_FELIM"  , ffld2d ) 
    489             CALL wrk_dealloc( jpi, jpj,  ffld2d    ) 
     488            DEALLOCATE( ffld2d ) 
    490489         ENDIF 
    491490         IF ( med_diag%PD_SILIM%dgsave ) THEN 
    492491            CALL iom_put( "PD_SILIM"  , fsld2d2 ) 
    493             CALL wrk_dealloc( jpi, jpj,   fsld2d2  ) 
     492            DEALLOCATE( fsld2d2 ) 
    494493         ENDIF 
    495494         IF ( med_diag%PDSILIM2%dgsave ) THEN 
    496495            CALL iom_put( "PDSILIM2"  , fsld2d ) 
    497             CALL wrk_dealloc( jpi, jpj,   fsld2d  ) 
     496            DEALLOCATE( fsld2d ) 
    498497         ENDIF 
    499498         IF ( med_diag%INTFLX_N%dgsave ) THEN 
    … …  
    582581         IF ( med_diag%PRN%dgsave ) THEN 
    583582            CALL iom_put( "PRN"  , fprn2d ) 
    584             CALL wrk_dealloc( jpi, jpj,   fprn2d  ) 
     583            DEALLOCATE( fprn2d ) 
    585584         ENDIF 
    586585         IF ( med_diag%MPN%dgsave ) THEN 
    587             CALL iom_put( "MPN"  ,fdpn2d  ) 
    588             CALL wrk_dealloc( jpi, jpj,    fdpn2d ) 
     586            CALL iom_put( "MPN"  ,fdpn2d ) 
     587            DEALLOCATE( fdpn2d ) 
    589588         ENDIF 
    590589         IF ( med_diag%PRD%dgsave ) THEN 
    591             CALL iom_put( "PRD"  ,fprd2d  ) 
    592             CALL wrk_dealloc( jpi, jpj,   fprd2d ) 
     590            CALL iom_put( "PRD"  ,fprd2d ) 
     591            DEALLOCATE( fprd2d ) 
    593592         ENDIF 
    594593         IF( med_diag%MPD%dgsave ) THEN 
    595594            CALL iom_put( "MPD"  , fdpd2d ) 
    596             CALL wrk_dealloc( jpi, jpj,    fdpd2d ) 
     595            DEALLOCATE( fdpd2d ) 
    597596         ENDIF 
    598597         !  IF( med_diag%DSED%dgsave ) THEN 
    … …  
    601600         IF( med_diag%OPAL%dgsave ) THEN 
    602601            CALL iom_put( "OPAL"  , fprds2d ) 
    603             CALL wrk_dealloc( jpi, jpj,   fprds2d ) 
     602            DEALLOCATE( fprds2d ) 
    604603         ENDIF 
    605604         IF( med_diag%OPALDISS%dgsave ) THEN 
    606605            CALL iom_put( "OPALDISS"  , fsdiss2d ) 
    607             CALL wrk_dealloc( jpi, jpj,   fsdiss2d ) 
     606            DEALLOCATE( fsdiss2d ) 
    608607         ENDIF 
    609608         IF( med_diag%GMIPn%dgsave ) THEN 
    610609            CALL iom_put( "GMIPn"  , fgmipn2d ) 
    611             CALL wrk_dealloc( jpi, jpj,   fgmipn2d ) 
     610            DEALLOCATE( fgmipn2d ) 
    612611         ENDIF 
    613612         IF( med_diag%GMID%dgsave ) THEN 
    614613            CALL iom_put( "GMID"  , fgmid2d ) 
    615             CALL wrk_dealloc( jpi, jpj,  fgmid2d ) 
     614            DEALLOCATE( fgmid2d ) 
    616615         ENDIF 
    617616         IF( med_diag%MZMI%dgsave ) THEN 
    618617            CALL iom_put( "MZMI"  , fdzmi2d ) 
    619             CALL wrk_dealloc( jpi, jpj,   fdzmi2d  ) 
     618            DEALLOCATE( fdzmi2d ) 
    620619         ENDIF 
    621620         IF( med_diag%GMEPN%dgsave ) THEN 
    622621            CALL iom_put( "GMEPN"  , fgmepn2d ) 
    623             CALL wrk_dealloc( jpi, jpj,   fgmepn2d ) 
     622            DEALLOCATE( fgmepn2d ) 
    624623         ENDIF 
    625624         IF( med_diag%GMEPD%dgsave ) THEN 
    626625            CALL iom_put( "GMEPD"  , fgmepd2d ) 
    627             CALL wrk_dealloc( jpi, jpj,   fgmepd2d  ) 
     626            DEALLOCATE( fgmepd2d ) 
    628627         ENDIF 
    629628         IF( med_diag%GMEZMI%dgsave ) THEN 
    630629            CALL iom_put( "GMEZMI"  , fgmezmi2d ) 
    631             CALL wrk_dealloc( jpi, jpj,   fgmezmi2d  ) 
     630            DEALLOCATE( fgmezmi2d ) 
    632631         ENDIF 
    633632         IF( med_diag%GMED%dgsave ) THEN 
    634633            CALL iom_put( "GMED"  , fgmed2d ) 
    635             CALL wrk_dealloc( jpi, jpj,    fgmed2d ) 
     634            DEALLOCATE( fgmed2d ) 
    636635         ENDIF 
    637636         IF( med_diag%MZME%dgsave ) THEN 
    638637            CALL iom_put( "MZME"  , fdzme2d ) 
    639             CALL wrk_dealloc( jpi, jpj,  fdzme2d    ) 
     638            DEALLOCATE( fdzme2d ) 
    640639         ENDIF 
    641640         !  IF( med_diag%DEXP%dgsave ) THEN 
    … …  
    644643         IF( med_diag%DETN%dgsave ) THEN 
    645644            CALL iom_put( "DETN"  , fslown2d ) 
    646             CALL wrk_dealloc( jpi, jpj,  fslown2d    ) 
     645            DEALLOCATE( fslown2d ) 
    647646         ENDIF 
    648647         IF( med_diag%MDET%dgsave ) THEN 
    649648            CALL iom_put( "MDET"  , fdd2d ) 
    650             CALL wrk_dealloc( jpi, jpj,   fdd2d  ) 
     649            DEALLOCATE( fdd2d ) 
    651650         ENDIF 
    652651         IF( med_diag%AEOLIAN%dgsave ) THEN 
    653652            CALL iom_put( "AEOLIAN"  , ffetop2d ) 
    654             CALL wrk_dealloc( jpi, jpj,   ffetop2d  ) 
     653            DEALLOCATE( ffetop2d ) 
    655654         ENDIF 
    656655         IF( med_diag%BENTHIC%dgsave ) THEN 
    657656            CALL iom_put( "BENTHIC"  , ffebot2d ) 
    658             CALL wrk_dealloc( jpi, jpj,   ffebot2d  ) 
     657            DEALLOCATE( ffebot2d ) 
    659658         ENDIF 
    660659         IF( med_diag%SCAVENGE%dgsave ) THEN 
    661660            CALL iom_put( "SCAVENGE"  , ffescav2d ) 
    662             CALL wrk_dealloc( jpi, jpj,   ffescav2d ) 
     661            DEALLOCATE( ffescav2d ) 
    663662         ENDIF 
    664663         !!  
    665664         IF( med_diag%TOTREG_N%dgsave ) THEN 
    666665            CALL iom_put( "TOTREG_N"  , fregen2d ) 
    667             CALL wrk_dealloc( jpi, jpj,   fregen2d  ) 
     666            DEALLOCATE( fregen2d ) 
    668667         ENDIF 
    669668         IF( med_diag%TOTRG_SI%dgsave ) THEN 
    670669            CALL iom_put( "TOTRG_SI"  , fregensi2d ) 
    671             CALL wrk_dealloc( jpi, jpj,    fregensi2d ) 
     670            DEALLOCATE( fregensi2d ) 
    672671         ENDIF 
    673672         !!  
    674673         IF( med_diag%FASTN%dgsave ) THEN 
    675674            CALL iom_put( "FASTN"  , ftempn2d ) 
    676             CALL wrk_dealloc( jpi, jpj,   ftempn2d  ) 
     675            DEALLOCATE( ftempn2d ) 
    677676         ENDIF 
    678677         IF( med_diag%FASTSI%dgsave ) THEN 
    679678            CALL iom_put( "FASTSI"  , ftempsi2d ) 
    680             CALL wrk_dealloc( jpi, jpj,   ftempsi2d  ) 
     679            DEALLOCATE( ftempsi2d ) 
    681680         ENDIF 
    682681         IF( med_diag%FASTFE%dgsave ) THEN 
    683682            CALL iom_put( "FASTFE"  , ftempfe2d ) 
    684             CALL wrk_dealloc( jpi, jpj,    ftempfe2d ) 
     683            DEALLOCATE( ftempfe2d ) 
    685684         ENDIF 
    686685         IF( med_diag%FASTC%dgsave ) THEN 
    687686            CALL iom_put( "FASTC"  , ftempc2d ) 
    688             CALL wrk_dealloc( jpi, jpj,  ftempc2d    ) 
     687            DEALLOCATE( ftempc2d ) 
    689688         ENDIF 
    690689         IF( med_diag%FASTCA%dgsave ) THEN 
    691690            CALL iom_put( "FASTCA"  , ftempca2d ) 
    692             CALL wrk_dealloc( jpi, jpj,  ftempca2d  ) 
     691            DEALLOCATE( ftempca2d ) 
    693692         ENDIF 
    694693         !!  
    695694         IF( med_diag%REMINN%dgsave ) THEN 
    696695            CALL iom_put( "REMINN"  , freminn2d ) 
    697             CALL wrk_dealloc( jpi, jpj,   freminn2d  ) 
     696            DEALLOCATE( freminn2d ) 
    698697         ENDIF 
    699698         IF( med_diag%REMINSI%dgsave ) THEN 
    700699            CALL iom_put( "REMINSI"  , freminsi2d ) 
    701             CALL wrk_dealloc( jpi, jpj,   freminsi2d  ) 
     700            DEALLOCATE( freminsi2d ) 
    702701         ENDIF 
    703702         IF( med_diag%REMINFE%dgsave ) THEN 
    704703            CALL iom_put( "REMINFE"  , freminfe2d ) 
    705             CALL wrk_dealloc( jpi, jpj,  freminfe2d    ) 
     704            DEALLOCATE( freminfe2d ) 
    706705         ENDIF 
    707706         IF( med_diag%REMINC%dgsave ) THEN 
    708707            CALL iom_put( "REMINC"  , freminc2d ) 
    709             CALL wrk_dealloc( jpi, jpj,    freminc2d ) 
     708            DEALLOCATE( freminc2d ) 
    710709         ENDIF 
    711710         IF( med_diag%REMINCA%dgsave ) THEN 
    712711            CALL iom_put( "REMINCA"  , freminca2d ) 
    713             CALL wrk_dealloc( jpi, jpj,   freminca2d ) 
     712            DEALLOCATE( freminca2d ) 
    714713         ENDIF 
    715714         IF( med_diag%SEAFLRN%dgsave ) THEN 
    … …  
    733732         IF( med_diag%RIV_N%dgsave ) THEN 
    734733            CALL iom_put( "RIV_N"  , rivn2d ) 
    735             CALL wrk_dealloc( jpi, jpj,    rivn2d ) 
     734            DEALLOCATE( rivn2d ) 
    736735         ENDIF 
    737736         IF( med_diag%RIV_SI%dgsave ) THEN 
    738737            CALL iom_put( "RIV_SI"  , rivsi2d ) 
    739             CALL wrk_dealloc( jpi, jpj,   rivsi2d  ) 
     738            DEALLOCATE( rivsi2d ) 
    740739         ENDIF 
    741740         IF( med_diag%RIV_C%dgsave ) THEN 
    742741            CALL iom_put( "RIV_C"  , rivc2d ) 
    743             CALL wrk_dealloc( jpi, jpj,    rivc2d ) 
     742            DEALLOCATE( rivc2d ) 
    744743         ENDIF 
    745744         IF( med_diag%RIV_ALK%dgsave ) THEN 
    746745            CALL iom_put( "RIV_ALK"  , rivalk2d ) 
    747             CALL wrk_dealloc( jpi, jpj,  rivalk2d    ) 
     746            DEALLOCATE( rivalk2d ) 
    748747         ENDIF 
    749748         IF( med_diag%DETC%dgsave ) THEN 
    750749            CALL iom_put( "DETC"  , fslowc2d ) 
    751             CALL wrk_dealloc( jpi, jpj,   fslowc2d  ) 
     750            DEALLOCATE( fslowc2d ) 
    752751         ENDIF 
    753752         !! 
    754753         IF( med_diag%PN_LLOSS%dgsave ) THEN 
    755754            CALL iom_put( "PN_LLOSS"  , fdpn22d ) 
    756             CALL wrk_dealloc( jpi, jpj,   fdpn22d  ) 
     755            DEALLOCATE( fdpn22d ) 
    757756         ENDIF 
    758757         IF( med_diag%PD_LLOSS%dgsave ) THEN 
    759758            CALL iom_put( "PD_LLOSS"  , fdpd22d ) 
    760             CALL wrk_dealloc( jpi, jpj,   fdpd22d  ) 
     759            DEALLOCATE( fdpd22d ) 
    761760         ENDIF 
    762761         IF( med_diag%ZI_LLOSS%dgsave ) THEN 
    763762            CALL iom_put( "ZI_LLOSS"  , fdzmi22d ) 
    764              CALL wrk_dealloc( jpi, jpj,    fdzmi22d ) 
     763             DEALLOCATE( fdzmi22d ) 
    765764          ENDIF 
    766765          IF( med_diag%ZE_LLOSS%dgsave ) THEN 
    767766             CALL iom_put( "ZE_LLOSS"  , fdzme22d ) 
    768              CALL wrk_dealloc( jpi, jpj,   fdzme22d  ) 
     767             DEALLOCATE( fdzme22d ) 
    769768          ENDIF 
    770769          IF( med_diag%ZI_MES_N%dgsave ) THEN 
    771770             CALL iom_put( "ZI_MES_N"  , zimesn2d ) 
    772              CALL wrk_dealloc( jpi, jpj,    zimesn2d ) 
     771             DEALLOCATE( zimesn2d ) 
    773772          ENDIF 
    774773          IF( med_diag%ZI_MES_D%dgsave ) THEN 
    775774             CALL iom_put( "ZI_MES_D"  , zimesd2d ) 
    776              CALL wrk_dealloc( jpi, jpj,    zimesd2d ) 
     775             DEALLOCATE( zimesd2d ) 
    777776          ENDIF 
    778777          IF( med_diag%ZI_MES_C%dgsave ) THEN 
    779778             CALL iom_put( "ZI_MES_C"  , zimesc2d ) 
    780              CALL wrk_dealloc( jpi, jpj,    zimesc2d ) 
     779             DEALLOCATE( zimesc2d ) 
    781780          ENDIF 
    782781          IF( med_diag%ZI_MESDC%dgsave ) THEN 
    783              CALL iom_put( "ZI_MESDC"  ,zimesdc2d  ) 
    784              CALL wrk_dealloc( jpi, jpj,    zimesdc2d ) 
     782             CALL iom_put( "ZI_MESDC"  ,zimesdc2d ) 
     783             DEALLOCATE( zimesdc2d ) 
    785784          ENDIF 
    786785          IF( med_diag%ZI_EXCR%dgsave ) THEN 
    787786             CALL iom_put( "ZI_EXCR"  , ziexcr2d ) 
    788              CALL wrk_dealloc( jpi, jpj,    ziexcr2d ) 
     787             DEALLOCATE( ziexcr2d ) 
    789788          ENDIF 
    790789          IF( med_diag%ZI_RESP%dgsave ) THEN 
    791790             CALL iom_put( "ZI_RESP"  , ziresp2d ) 
    792              CALL wrk_dealloc( jpi, jpj,   ziresp2d  ) 
     791             DEALLOCATE( ziresp2d ) 
    793792          ENDIF 
    794793          IF( med_diag%ZI_GROW%dgsave ) THEN 
    795794             CALL iom_put( "ZI_GROW"  , zigrow2d ) 
    796              CALL wrk_dealloc( jpi, jpj,   zigrow2d  ) 
     795             DEALLOCATE( zigrow2d ) 
    797796          ENDIF 
    798797          IF( med_diag%ZE_MES_N%dgsave ) THEN 
    799798             CALL iom_put( "ZE_MES_N"  , zemesn2d ) 
    800              CALL wrk_dealloc( jpi, jpj,    zemesn2d ) 
     799             DEALLOCATE( zemesn2d ) 
    801800          ENDIF 
    802801          IF( med_diag%ZE_MES_D%dgsave ) THEN 
    803802             CALL iom_put( "ZE_MES_D"  , zemesd2d ) 
    804              CALL wrk_dealloc( jpi, jpj,    zemesd2d ) 
     803             DEALLOCATE( zemesd2d ) 
    805804          ENDIF 
    806805          IF( med_diag%ZE_MES_C%dgsave ) THEN 
    807806             CALL iom_put( "ZE_MES_C"  , zemesc2d ) 
    808              CALL wrk_dealloc( jpi, jpj,   zemesc2d  ) 
     807             DEALLOCATE( zemesc2d ) 
    809808          ENDIF 
    810809          IF( med_diag%ZE_MESDC%dgsave ) THEN 
    811810             CALL iom_put( "ZE_MESDC"  , zemesdc2d ) 
    812              CALL wrk_dealloc( jpi, jpj,   zemesdc2d  ) 
     811             DEALLOCATE( zemesdc2d ) 
    813812          ENDIF 
    814813          IF( med_diag%ZE_EXCR%dgsave ) THEN 
    815814             CALL iom_put( "ZE_EXCR"  , zeexcr2d ) 
    816              CALL wrk_dealloc( jpi, jpj,   zeexcr2d  ) 
     815             DEALLOCATE( zeexcr2d ) 
    817816          ENDIF 
    818817          IF( med_diag%ZE_RESP%dgsave ) THEN 
    819818             CALL iom_put( "ZE_RESP"  , zeresp2d ) 
    820              CALL wrk_dealloc( jpi, jpj,    zeresp2d ) 
     819             DEALLOCATE( zeresp2d ) 
    821820          ENDIF 
    822821          IF( med_diag%ZE_GROW%dgsave ) THEN 
    823822             CALL iom_put( "ZE_GROW"  , zegrow2d ) 
    824              CALL wrk_dealloc( jpi, jpj,   zegrow2d  ) 
     823             DEALLOCATE( zegrow2d ) 
    825824          ENDIF 
    826825          IF( med_diag%MDETC%dgsave ) THEN 
    827826             CALL iom_put( "MDETC"  , mdetc2d ) 
    828              CALL wrk_dealloc( jpi, jpj,   mdetc2d  ) 
     827             DEALLOCATE( mdetc2d ) 
    829828          ENDIF 
    830829          IF( med_diag%GMIDC%dgsave ) THEN 
    831830             CALL iom_put( "GMIDC"  , gmidc2d ) 
    832              CALL wrk_dealloc( jpi, jpj,    gmidc2d ) 
     831             DEALLOCATE( gmidc2d ) 
    833832          ENDIF 
    834833          IF( med_diag%GMEDC%dgsave ) THEN 
    835834             CALL iom_put( "GMEDC"  , gmedc2d ) 
    836              CALL wrk_dealloc( jpi, jpj,    gmedc2d ) 
     835             DEALLOCATE( gmedc2d ) 
    837836          ENDIF 
    838837          IF( med_diag%IBEN_N%dgsave ) THEN 
    839838             CALL iom_put( "IBEN_N"  , iben_n2d ) 
    840              CALL wrk_dealloc( jpi, jpj,    iben_n2d ) 
     839             DEALLOCATE( iben_n2d ) 
    841840          ENDIF 
    842841          IF( med_diag%IBEN_FE%dgsave ) THEN 
    843842             CALL iom_put( "IBEN_FE"  , iben_fe2d ) 
    844              CALL wrk_dealloc( jpi, jpj,   iben_fe2d  ) 
     843             DEALLOCATE( iben_fe2d ) 
    845844          ENDIF 
    846845          IF( med_diag%IBEN_C%dgsave ) THEN 
    847846             CALL iom_put( "IBEN_C"  , iben_c2d ) 
    848              CALL wrk_dealloc( jpi, jpj,   iben_c2d  ) 
     847             DEALLOCATE( iben_c2d ) 
    849848          ENDIF 
    850849          IF( med_diag%IBEN_SI%dgsave ) THEN 
    851850             CALL iom_put( "IBEN_SI"  , iben_si2d ) 
    852              CALL wrk_dealloc( jpi, jpj,   iben_si2d  ) 
     851             DEALLOCATE( iben_si2d ) 
    853852          ENDIF 
    854853          IF( med_diag%IBEN_CA%dgsave ) THEN 
    855854             CALL iom_put( "IBEN_CA"  , iben_ca2d ) 
    856              CALL wrk_dealloc( jpi, jpj,   iben_ca2d  ) 
     855             DEALLOCATE( iben_ca2d ) 
    857856          ENDIF 
    858857          IF( med_diag%OBEN_N%dgsave ) THEN 
    859858             CALL iom_put( "OBEN_N"  , oben_n2d ) 
    860              CALL wrk_dealloc( jpi, jpj,    oben_n2d ) 
     859             DEALLOCATE( oben_n2d ) 
    861860          ENDIF 
    862861          IF( med_diag%OBEN_FE%dgsave ) THEN 
    863862             CALL iom_put( "OBEN_FE"  , oben_fe2d ) 
    864              CALL wrk_dealloc( jpi, jpj,    oben_fe2d ) 
     863             DEALLOCATE( oben_fe2d ) 
    865864          ENDIF 
    866865          IF( med_diag%OBEN_C%dgsave ) THEN 
    867866             CALL iom_put( "OBEN_C"  , oben_c2d ) 
    868              CALL wrk_dealloc( jpi, jpj,    oben_c2d ) 
     867             DEALLOCATE( oben_c2d ) 
    869868          ENDIF 
    870869          IF( med_diag%OBEN_SI%dgsave ) THEN 
    871870             CALL iom_put( "OBEN_SI"  , oben_si2d ) 
    872              CALL wrk_dealloc( jpi, jpj,    oben_si2d ) 
     871             DEALLOCATE( oben_si2d ) 
    873872          ENDIF 
    874873          IF( med_diag%OBEN_CA%dgsave ) THEN 
    875874             CALL iom_put( "OBEN_CA"  , oben_ca2d ) 
    876              CALL wrk_dealloc( jpi, jpj, oben_ca2d    ) 
     875             DEALLOCATE( oben_ca2d ) 
    877876          ENDIF 
    878877          IF( med_diag%SFR_OCAL%dgsave ) THEN 
    879878             CALL iom_put( "SFR_OCAL"  , sfr_ocal2d ) 
    880              CALL wrk_dealloc( jpi, jpj,    sfr_ocal2d ) 
     879             DEALLOCATE( sfr_ocal2d ) 
    881880          ENDIF 
    882881          IF( med_diag%SFR_OARG%dgsave ) THEN 
    883882             CALL iom_put( "SFR_OARG"  , sfr_oarg2d ) 
    884              CALL wrk_dealloc( jpi, jpj,    sfr_oarg2d ) 
     883             DEALLOCATE( sfr_oarg2d ) 
    885884          ENDIF 
    886885          IF( med_diag%LYSO_CA%dgsave ) THEN 
    887886             CALL iom_put( "LYSO_CA"  , lyso_ca2d ) 
    888              CALL wrk_dealloc( jpi, jpj,    lyso_ca2d ) 
     887             DEALLOCATE( lyso_ca2d ) 
    889888          ENDIF 
    890889# endif                    
    … …  
    893892          IF( med_diag%TPP3%dgsave ) THEN 
    894893             CALL iom_put( "TPP3"  , tpp3d ) 
    895              CALL wrk_dealloc( jpi, jpj, jpk,   tpp3d ) 
     894             DEALLOCATE( tpp3d ) 
    896895          ENDIF 
    897896          IF( med_diag%DETFLUX3%dgsave ) THEN 
    898897             CALL iom_put( "DETFLUX3"  , detflux3d ) 
    899              CALL wrk_dealloc( jpi, jpj, jpk,    detflux3d ) 
     898             DEALLOCATE( detflux3d ) 
    900899          ENDIF 
    901900          IF( med_diag%REMIN3N%dgsave ) THEN 
    902901             CALL iom_put( "REMIN3N"  , remin3dn ) 
    903              CALL wrk_dealloc( jpi, jpj, jpk,   remin3dn ) 
     902             DEALLOCATE( remin3dn ) 
    904903          ENDIF 
    905904# if defined key_roam           
    … …  
    914913          IF( med_diag%INTDISSIC%dgsave ) THEN 
    915914             CALL iom_put( "INTDISSIC"  , intdissic ) 
    916              CALL wrk_dealloc( jpi, jpj, intdissic  ) 
     915             DEALLOCATE( intdissic ) 
    917916          ENDIF           
    918917          IF( med_diag%INTDISSIN%dgsave ) THEN 
    919918             CALL iom_put( "INTDISSIN"  , intdissin ) 
    920              CALL wrk_dealloc( jpi, jpj, intdissin  ) 
     919             DEALLOCATE( intdissin ) 
    921920          ENDIF           
    922921          IF( med_diag%INTDISSISI%dgsave ) THEN 
    923922             CALL iom_put( "INTDISSISI"  , intdissisi ) 
    924              CALL wrk_dealloc( jpi, jpj, intdissisi ) 
     923             DEALLOCATE( intdissisi ) 
    925924          ENDIF           
    926925          IF( med_diag%INTTALK%dgsave ) THEN 
    927926             CALL iom_put( "INTTALK"  , inttalk ) 
    928              CALL wrk_dealloc( jpi, jpj, inttalk    ) 
     927             DEALLOCATE( inttalk ) 
    929928          ENDIF           
    930929          IF( med_diag%O2min%dgsave ) THEN 
    931930             CALL iom_put( "O2min"  , o2min ) 
    932              CALL wrk_dealloc( jpi, jpj, o2min      ) 
     931             DEALLOCATE( o2min ) 
    933932          ENDIF           
    934933          IF( med_diag%ZO2min%dgsave ) THEN 
    935934             CALL iom_put( "ZO2min"  , zo2min ) 
    936              CALL wrk_dealloc( jpi, jpj, zo2min      ) 
     935             DEALLOCATE( zo2min ) 
    937936          ENDIF           
    938937          IF( med_diag%FBDDTALK%dgsave ) THEN 
    939              CALL iom_put( "FBDDTALK"  , fbddtalk   ) 
    940              CALL wrk_dealloc( jpi, jpj, fbddtalk  ) 
     938             CALL iom_put( "FBDDTALK"  , fbddtalk ) 
     939             DEALLOCATE( fbddtalk ) 
    941940          ENDIF           
    942941          IF( med_diag%FBDDTDIC%dgsave ) THEN 
    943              CALL iom_put( "FBDDTDIC"  , fbddtdic   ) 
    944              CALL wrk_dealloc( jpi, jpj, fbddtdic  ) 
     942             CALL iom_put( "FBDDTDIC"  , fbddtdic ) 
     943             DEALLOCATE( fbddtdic ) 
    945944          ENDIF           
    946945          IF( med_diag%FBDDTDIFE%dgsave ) THEN 
    947              CALL iom_put( "FBDDTDIFE" , fbddtdife  ) 
    948              CALL wrk_dealloc( jpi, jpj, fbddtdife ) 
     946             CALL iom_put( "FBDDTDIFE" , fbddtdife ) 
     947             DEALLOCATE( fbddtdife ) 
    949948          ENDIF           
    950949          IF( med_diag%FBDDTDIN%dgsave ) THEN 
    951              CALL iom_put( "FBDDTDIN"  , fbddtdin   ) 
    952              CALL wrk_dealloc( jpi, jpj, fbddtdin  ) 
     950             CALL iom_put( "FBDDTDIN"  , fbddtdin ) 
     951             DEALLOCATE( fbddtdin ) 
    953952          ENDIF           
    954953          IF( med_diag%FBDDTDISI%dgsave ) THEN 
    955              CALL iom_put( "FBDDTDISI" , fbddtdisi  ) 
    956              CALL wrk_dealloc( jpi, jpj, fbddtdisi ) 
     954             CALL iom_put( "FBDDTDISI" , fbddtdisi ) 
     955             DEALLOCATE( fbddtdisi ) 
    957956          ENDIF     
    958957          !! 
    … …  
    960959          IF( med_diag%TPPD3%dgsave ) THEN 
    961960             CALL iom_put( "TPPD3"     , tppd3 ) 
    962              CALL wrk_dealloc( jpi, jpj, jpk, tppd3      ) 
     961             DEALLOCATE( tppd3 ) 
    963962          ENDIF           
    964963          IF( med_diag%BDDTALK3%dgsave ) THEN 
    965964             CALL iom_put( "BDDTALK3"  , bddtalk3 ) 
    966              CALL wrk_dealloc( jpi, jpj, jpk, bddtalk3  ) 
     965             DEALLOCATE( bddtalk3 ) 
    967966          ENDIF           
    968967          IF( med_diag%BDDTDIC3%dgsave ) THEN 
    969968             CALL iom_put( "BDDTDIC3"  , bddtdic3 ) 
    970              CALL wrk_dealloc( jpi, jpj, jpk, bddtdic3  ) 
     969             DEALLOCATE( bddtdic3 ) 
    971970          ENDIF           
    972971          IF( med_diag%BDDTDIFE3%dgsave ) THEN 
    973972             CALL iom_put( "BDDTDIFE3" , bddtdife3 ) 
    974              CALL wrk_dealloc( jpi, jpj, jpk, bddtdife3 ) 
     973             DEALLOCATE( bddtdife3 ) 
    975974          ENDIF           
    976975          IF( med_diag%BDDTDIN3%dgsave ) THEN 
    977976             CALL iom_put( "BDDTDIN3"  , bddtdin3 ) 
    978              CALL wrk_dealloc( jpi, jpj, jpk, bddtdin3  ) 
     977             DEALLOCATE( bddtdin3 ) 
    979978          ENDIF           
    980979          IF( med_diag%BDDTDISI3%dgsave ) THEN 
    981980             CALL iom_put( "BDDTDISI3" , bddtdisi3 ) 
    982              CALL wrk_dealloc( jpi, jpj, jpk, bddtdisi3 ) 
     981             DEALLOCATE( bddtdisi3 ) 
    983982          ENDIF     
    984983          IF( med_diag%FD_NIT3%dgsave ) THEN 
    985984             CALL iom_put( "FD_NIT3"  , fd_nit3 ) 
    986              CALL wrk_dealloc( jpi, jpj, jpk,   fd_nit3 ) 
     985             DEALLOCATE( fd_nit3 ) 
    987986          ENDIF 
    988987          IF( med_diag%FD_SIL3%dgsave ) THEN 
    989988             CALL iom_put( "FD_SIL3"  , fd_sil3 ) 
    990              CALL wrk_dealloc( jpi, jpj, jpk,   fd_sil3 ) 
     989             DEALLOCATE( fd_sil3 ) 
    991990          ENDIF 
    992991          IF( med_diag%FD_CAL3%dgsave ) THEN 
    993992             CALL iom_put( "FD_CAL3"  , fd_cal3 ) 
    994              CALL wrk_dealloc( jpi, jpj, jpk,   fd_cal3 ) 
     993             DEALLOCATE( fd_cal3 ) 
    995994          ENDIF 
    996995          IF( med_diag%FD_CAR3%dgsave ) THEN 
    997996             CALL iom_put( "FD_CAR3"  , fd_car3 ) 
    998              CALL wrk_dealloc( jpi, jpj, jpk,   fd_car3 ) 
     997             DEALLOCATE( fd_car3 ) 
    999998          ENDIF 
    1000999          IF( med_diag%CO33%dgsave ) THEN 
    … …  
    10091008          IF( med_diag%EXPC3%dgsave ) THEN 
    10101009             CALL iom_put( "EXPC3"  , expc3 ) 
    1011              CALL wrk_dealloc( jpi, jpj, jpk, expc3 ) 
     1010             DEALLOCATE( expc3 ) 
    10121011          ENDIF                     
    10131012          IF( med_diag%EXPN3%dgsave ) THEN 
    10141013             CALL iom_put( "EXPN3"  , expn3 ) 
    1015              CALL wrk_dealloc( jpi, jpj, jpk, expn3 ) 
     1014             DEALLOCATE( expn3 ) 
    10161015          ENDIF                     
    10171016          IF( med_diag%DCALC3%dgsave ) THEN 
    10181017             CALL iom_put( "DCALC3"  , dcalc3 ) 
    1019              CALL wrk_dealloc( jpi, jpj, jpk, dcalc3 ) 
     1018             DEALLOCATE( dcalc3 ) 
    10201019          ENDIF                     
    10211020          IF( med_diag%FEDISS3%dgsave ) THEN 
    10221021             CALL iom_put( "FEDISS3"  , fediss3 ) 
    1023              CALL wrk_dealloc( jpi, jpj, jpk, fediss3 ) 
     1022             DEALLOCATE( fediss3 ) 
    10241023          ENDIF                     
    10251024          IF( med_diag%FESCAV3%dgsave ) THEN 
    10261025             CALL iom_put( "FESCAV3"  , fescav3 ) 
    1027              CALL wrk_dealloc( jpi, jpj, jpk, fescav3 ) 
     1026             DEALLOCATE( fescav3 ) 
    10281027          ENDIF                     
    10291028          IF( med_diag%MIGRAZP3%dgsave ) THEN 
    10301029             CALL iom_put( "MIGRAZP3"  , migrazp3 ) 
    1031              CALL wrk_dealloc( jpi, jpj, jpk, migrazp3 ) 
     1030             DEALLOCATE( migrazp3 ) 
    10321031          ENDIF                     
    10331032          IF( med_diag%MIGRAZD3%dgsave ) THEN 
    10341033             CALL iom_put( "MIGRAZD3"  , migrazd3 ) 
    1035              CALL wrk_dealloc( jpi, jpj, jpk, migrazd3 ) 
     1034             DEALLOCATE( migrazd3 ) 
    10361035          ENDIF                     
    10371036          IF( med_diag%MEGRAZP3%dgsave ) THEN 
    10381037             CALL iom_put( "MEGRAZP3"  , megrazp3 ) 
    1039              CALL wrk_dealloc( jpi, jpj, jpk, megrazp3 ) 
     1038             DEALLOCATE( megrazp3 ) 
    10401039          ENDIF                     
    10411040          IF( med_diag%MEGRAZD3%dgsave ) THEN 
    10421041             CALL iom_put( "MEGRAZD3"  , megrazd3 ) 
    1043              CALL wrk_dealloc( jpi, jpj, jpk, megrazd3 ) 
     1042             DEALLOCATE( megrazd3 ) 
    10441043          ENDIF                     
    10451044          IF( med_diag%MEGRAZZ3%dgsave ) THEN 
    10461045             CALL iom_put( "MEGRAZZ3"  , megrazz3 ) 
    1047              CALL wrk_dealloc( jpi, jpj, jpk, megrazz3 ) 
     1046             DEALLOCATE( megrazz3 ) 
    10481047          ENDIF                     
    10491048          IF( med_diag%O2SAT3%dgsave ) THEN 
    10501049             CALL iom_put( "O2SAT3"  , o2sat3 ) 
    1051              CALL wrk_dealloc( jpi, jpj, jpk, o2sat3 ) 
     1050             DEALLOCATE( o2sat3 ) 
    10521051          ENDIF                     
    10531052          IF( med_diag%PBSI3%dgsave ) THEN 
    10541053             CALL iom_put( "PBSI3"  , pbsi3 ) 
    1055              CALL wrk_dealloc( jpi, jpj, jpk, pbsi3 ) 
     1054             DEALLOCATE( pbsi3 ) 
    10561055          ENDIF                     
    10571056          IF( med_diag%PCAL3%dgsave ) THEN 
    10581057             CALL iom_put( "PCAL3"  , pcal3 ) 
    1059              CALL wrk_dealloc( jpi, jpj, jpk, pcal3 ) 
     1058             DEALLOCATE( pcal3 ) 
    10601059          ENDIF                     
    10611060          IF( med_diag%REMOC3%dgsave ) THEN 
    10621061             CALL iom_put( "REMOC3"  , remoc3 ) 
    1063              CALL wrk_dealloc( jpi, jpj, jpk, remoc3 ) 
     1062             DEALLOCATE( remoc3 ) 
    10641063          ENDIF                     
    10651064          IF( med_diag%PNLIMJ3%dgsave ) THEN 
    10661065             CALL iom_put( "PNLIMJ3" , pnlimj3 ) 
    1067              CALL wrk_dealloc( jpi, jpj, jpk, pnlimj3 ) 
     1066             DEALLOCATE( pnlimj3 ) 
    10681067          ENDIF                     
    10691068          IF( med_diag%PNLIMN3%dgsave ) THEN 
    10701069             CALL iom_put( "PNLIMN3" , pnlimn3 ) 
    1071              CALL wrk_dealloc( jpi, jpj, jpk, pnlimn3 ) 
     1070             DEALLOCATE( pnlimn3 ) 
    10721071          ENDIF                     
    10731072          IF( med_diag%PNLIMFE3%dgsave ) THEN 
    10741073             CALL iom_put( "PNLIMFE3" , pnlimfe3 ) 
    1075              CALL wrk_dealloc( jpi, jpj, jpk, pnlimfe3 ) 
     1074             DEALLOCATE( pnlimfe3 ) 
    10761075          ENDIF                     
    10771076          IF( med_diag%PDLIMJ3%dgsave ) THEN 
    10781077             CALL iom_put( "PDLIMJ3" , pdlimj3 ) 
    1079              CALL wrk_dealloc( jpi, jpj, jpk, pdlimj3 ) 
     1078             DEALLOCATE( pdlimj3 ) 
    10801079          ENDIF                     
    10811080          IF( med_diag%PDLIMN3%dgsave ) THEN 
    10821081             CALL iom_put( "PDLIMN3" , pdlimn3 ) 
    1083              CALL wrk_dealloc( jpi, jpj, jpk, pdlimn3 ) 
     1082             DEALLOCATE( pdlimn3 ) 
    10841083          ENDIF                     
    10851084          IF( med_diag%PDLIMFE3%dgsave ) THEN 
    10861085             CALL iom_put( "PDLIMFE3" , pdlimfe3 ) 
    1087              CALL wrk_dealloc( jpi, jpj, jpk, pdlimfe3 ) 
     1086             DEALLOCATE( pdlimfe3 ) 
    10881087          ENDIF                     
    10891088          IF( med_diag%PDLIMSI3%dgsave ) THEN 
    10901089             CALL iom_put( "PDLIMSI3" , pdlimsi3 ) 
    1091              CALL wrk_dealloc( jpi, jpj, jpk, pdlimsi3 ) 
     1090             DEALLOCATE( pdlimsi3 ) 
    10921091          ENDIF                     
    10931092           
    10941093# endif          
    10951094 
    1096           CALL wrk_dealloc( jpi, jpj,   zw2d  ) 
     1095          DEALLOCATE( zw2d ) 
    10971096 
    10981097       ENDIF                    ! end of ln_diatrc option 
Note: See TracChangeset for help on using the changeset viewer.