Changeset 708 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2007-10-10T15:11:42+02:00 (17 years ago)
- Location:
- trunk/NEMO/OPA_SRC
- Files:
-
- 33 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DIA/diafwb.F90
r699 r708 13 13 USE oce ! ocean dynamics and tracers 14 14 USE dom_oce ! ocean space and time domain 15 USE sbc_oce ! surface boundary condition: ocean 16 USE zdf_oce ! ocean vertical physics 15 17 USE phycst ! physical constants 16 USE zdf_oce ! ocean vertical physics17 18 USE in_out_manager ! I/O manager 18 USE flxrnf ! ???19 USE ocesbc ! ???20 USE blk_oce ! ???21 USE flxblk ! atmospheric surface quantity22 19 USE lib_mpp ! distributed memory computing library 23 20 -
trunk/NEMO/OPA_SRC/DIA/diawri.F90
r699 r708 14 14 USE sol_oce ! solver variables 15 15 USE ice_oce ! ice variables 16 USE sbc_oce ! surface boundary condition: ocean 16 17 USE phycst ! physical constants 17 18 USE ocfzpt ! ocean freezing point 18 USE ocesbc ! surface thermohaline fluxes19 USE taumod ! surface stress20 USE flxrnf ! ocean runoffs21 19 USE zdfmxl ! mixed layer 22 20 USE daymod ! calendar … … 27 25 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 28 26 USE in_out_manager ! I/O manager 29 USE flx_oce ! sea-ice/ocean forcings variables30 27 USE diadimg ! dimg direct access file format output 31 28 USE ioipsl -
trunk/NEMO/OPA_SRC/DOM/domain.F90
r699 r708 13 13 USE oce ! 14 14 USE dom_oce ! ocean space and time domain 15 USE phycst ! physical constants16 USE in_out_manager ! I/O manager17 15 USE ice_oce ! ice variables 18 16 USE blk_oce ! bulk variables 19 USE flxrnf ! runoffs 17 USE sbc_oce ! surface boundary condition: ocean 18 USE phycst ! physical constants 20 19 USE daymod ! calendar 20 USE in_out_manager ! I/O manager 21 21 USE lib_mpp ! distributed memory computing library 22 22 -
trunk/NEMO/OPA_SRC/DOM/domvvl.F90
r699 r708 18 18 USE oce ! ocean dynamics and tracers 19 19 USE dom_oce ! ocean space and time domain 20 USE sbc_oce ! surface boundary condition: ocean 21 USE dynspg_oce ! surface pressure gradient variables 22 USE phycst ! physical constants 20 23 USE in_out_manager ! I/O manager 21 24 USE lib_mpp ! distributed memory computing library 22 25 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 23 USE dynspg_oce ! surface pressure gradient variables24 USE ocesbc ! ocean surface boundary condition25 USE phycst ! physical constants26 26 27 27 IMPLICIT NONE -
trunk/NEMO/OPA_SRC/DYN/dynspg_exp.F90
r699 r708 16 16 USE oce ! ocean dynamics and tracers 17 17 USE dom_oce ! ocean space and time domain 18 USE in_out_manager ! I/O manager 18 USE sbc_oce ! surface boundary condition: ocean 19 USE obc_oce ! Lateral open boundary condition 19 20 USE phycst ! physical constants 20 USE ocesbc ! ocean surface boundary condition21 USE obc_oce ! Lateral open boundary condition22 21 USE obc_par ! open boundary condition parameters 23 22 USE obcdta ! open boundary condition data (obc_dta_bt routine) 23 USE in_out_manager ! I/O manager 24 24 USE lib_mpp ! distributed memory computing library 25 25 USE lbclnk ! ocean lateral boundary conditions (or mpp link) -
trunk/NEMO/OPA_SRC/DYN/dynspg_exp_jki.F90
r699 r708 15 15 USE oce ! ocean dynamics and tracers 16 16 USE dom_oce ! ocean space and time domain 17 USE in_out_manager ! I/O manager 17 USE sbc_oce ! surface boundary condition: ocean 18 USE obc_oce ! Lateral open boundary condition 18 19 USE phycst ! physical constants 19 USE ocesbc ! ocean surface boundary condition20 USE obc_oce ! Lateral open boundary condition21 20 USE obc_par ! open boundary condition parameters 22 21 USE obcdta ! open boundary condition data (obc_dta_bt routine) 22 USE in_out_manager ! I/O manager 23 23 USE lib_mpp ! distributed memory computing library 24 24 USE lbclnk ! ocean lateral boundary conditions (or mpp link) -
trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90
r699 r708 25 25 USE dom_oce ! ocean space and time domain 26 26 USE zdf_oce ! ocean vertical physics 27 USE sbc_oce ! surface boundary condition: ocean 28 USE obc_oce ! Lateral open boundary condition 29 USE sol_oce ! ocean elliptic solver 27 30 USE phycst ! physical constants 28 USE ocesbc ! ocean surface boundary condition 29 USE flxrnf ! ocean runoffs 30 USE sol_oce ! ocean elliptic solver 31 USE domvvl ! variable volume 31 32 USE solver ! solver initialization 32 33 USE solpcg ! preconditionned conjugate gradient solver … … 34 35 USE solfet ! FETI solver 35 36 USE solsor_e ! Successive Over-relaxation solver with MPP optimization 36 USE obc_oce ! Lateral open boundary condition37 37 USE obcdyn ! ocean open boundary condition (obc_dyn routines) 38 38 USE obcvol ! ocean open boundary condition (obc_vol routines) 39 USE cla_dynspg ! cross land advection 40 USE in_out_manager ! I/O manager 39 41 USE lib_mpp ! distributed memory computing library 40 42 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 41 USE cla_dynspg ! cross land advection42 43 USE prtctl ! Print control 43 44 USE solmat ! matrix construction for elliptic solvers 44 45 USE agrif_opa_interp 45 USE in_out_manager ! I/O manager46 46 USE iom 47 47 USE restart ! only for lrst_oce 48 USE domvvl ! variable volume49 48 50 49 IMPLICIT NONE -
trunk/NEMO/OPA_SRC/DYN/dynspg_flt_jki.F90
r699 r708 16 16 USE dom_oce ! ocean space and time domain 17 17 USE zdf_oce ! ocean vertical physics 18 USE sbc_oce ! surface boundary condition: ocean 19 USE sol_oce ! ocean elliptic solver 20 USE obc_oce ! Lateral open boundary condition 18 21 USE phycst ! physical constant 19 USE ocesbc ! Ocean Surface Boundary condition 20 USE flxrnf ! ocean runoffs 21 USE sol_oce ! ocean elliptic solver 22 USE dynspg_flt ! surface pressure gradient 22 23 USE solpcg ! preconditionned conjugate gradient solver 23 24 USE solsor ! Successive Over-relaxation solver … … 25 26 USE solsor_e ! Successive Over-relaxation solver with MPP optimization 26 27 USE solver 27 USE obc_oce ! Lateral open boundary condition28 28 USE obcdyn ! ocean open boundary condition (obc_dyn routines) 29 29 USE obcvol ! ocean open boundary condition (obc_vol routines) … … 31 31 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 32 32 USE cla_dynspg ! cross land advection 33 USE in_out_manager ! I/O manager 33 34 USE prtctl ! Print control 34 USE in_out_manager ! I/O manager35 35 USE solmat ! matrix construction for elliptic solvers 36 36 USE agrif_opa_interp 37 37 USE restart ! only for lrst_oce 38 38 USE iom ! I/O library 39 USE dynspg_flt ! surface pressure gradient40 39 41 40 IMPLICIT NONE -
trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r699 r708 20 20 USE oce ! ocean dynamics and tracers 21 21 USE dom_oce ! ocean space and time domain 22 USE sbc_oce ! surface boundary condition: ocean 23 USE dynspg_oce ! surface pressure gradient variables 22 24 USE phycst ! physical constants 23 USE ocesbc ! ocean surface boundary condition25 USE domvvl ! variable volume 24 26 USE obcdta ! open boundary condition data 25 27 USE obcfla ! Flather open boundary condition … … 30 32 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 31 33 USE prtctl ! Print control 32 USE dynspg_oce ! surface pressure gradient variables33 34 USE in_out_manager ! I/O manager 34 35 USE iom 35 36 USE restart ! only for lrst_oce 36 USE domvvl ! variable volume37 37 38 38 IMPLICIT NONE -
trunk/NEMO/OPA_SRC/DYN/dynspg_ts_jki.F90
r699 r708 14 14 USE oce ! ocean dynamics and tracers 15 15 USE dom_oce ! ocean space and time domain 16 USE sbc_oce ! surface boundary condition: ocean 17 USE obc_oce ! Lateral open boundary condition 18 USE obc_par ! open boundary condition parameters 19 USE dynspg_oce ! surface pressure gradient variables 20 USE dynspg_ts ! surface pressure gradient 16 21 USE phycst ! physical constants 17 USE ocesbc ! ocean surface boundary condition18 22 USE obcdta ! open boundary condition data 19 23 USE obcfla ! Flather open boundary condition 20 24 USE dynvor ! vorticity term 21 USE obc_oce ! Lateral open boundary condition22 USE obc_par ! open boundary condition parameters23 25 USE lib_mpp ! distributed memory computing library 24 26 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 25 27 USE prtctl ! Print control 26 USE dynspg_oce ! surface pressure gradient variables27 USE dynspg_ts ! surface pressure gradient28 28 USE in_out_manager ! I/O manager 29 29 USE iom ! I/O library -
trunk/NEMO/OPA_SRC/DYN/dynzad.F90
r699 r708 16 16 USE oce ! ocean dynamics and tracers 17 17 USE dom_oce ! ocean space and time domain 18 USE sbc_oce ! surface boundary condition: ocean 19 USE trdmod_oce ! ocean variables trends 20 USE trdmod ! ocean dynamics trends 18 21 USE in_out_manager ! I/O manager 19 USE trdmod ! ocean dynamics trends20 USE trdmod_oce ! ocean variables trends21 USE flxrnf ! ocean runoffs22 22 USE prtctl ! Print control 23 23 -
trunk/NEMO/OPA_SRC/DYN/dynzdf_exp.F90
r699 r708 18 18 USE phycst ! physical constants 19 19 USE zdf_oce ! ocean vertical physics 20 USE sbc_oce ! surface boundary condition: ocean 20 21 USE in_out_manager ! I/O manager 21 USE taumod ! surface ocean stress22 22 23 23 IMPLICIT NONE -
trunk/NEMO/OPA_SRC/DYN/dynzdf_imp.F90
r699 r708 20 20 USE oce ! ocean dynamics and tracers 21 21 USE dom_oce ! ocean space and time domain 22 USE sbc_oce ! surface boundary condition: ocean 23 USE zdf_oce ! ocean vertical physics 22 24 USE phycst ! physical constants 23 USE zdf_oce ! ocean vertical physics24 25 USE in_out_manager ! I/O manager 25 USE taumod ! surface ocean stress26 26 27 27 IMPLICIT NONE -
trunk/NEMO/OPA_SRC/DYN/dynzdf_imp_jki.F90
r699 r708 15 15 USE oce ! ocean dynamics and tracers 16 16 USE dom_oce ! ocean space and time domain 17 USE zdf_oce ! ocean vertical physics 18 USE sbc_oce ! surface boundary condition: ocean 17 19 USE phycst ! physical constants 18 USE zdf_oce ! ocean vertical physics19 20 USE in_out_manager ! I/O manager 20 USE taumod ! surface ocean stress21 21 22 22 IMPLICIT NONE -
trunk/NEMO/OPA_SRC/DYN/wzvmod.F90
r699 r708 13 13 USE oce ! ocean dynamics and tracers variables 14 14 USE dom_oce ! ocean space and time domain variables 15 USE sbc_oce ! surface boundary condition: ocean 16 USE domvvl ! Variable volume 15 17 USE in_out_manager ! I/O manager 16 18 USE prtctl ! Print control 17 18 USE domvvl ! Variable volume19 19 USE phycst 20 USE ocesbc ! ocean surface boundary condition21 20 USE lbclnk ! ocean lateral boundary condition (or mpp link) 22 21 -
trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90
r699 r708 16 16 USE oce ! ocean dynamics and tracers 17 17 USE dom_oce ! ocean space and time domain 18 USE sbc_oce ! surface boundary condition: ocean 18 19 USE ldftra_oce ! ocean tracer lateral physics 19 20 USE phycst ! physical constants 20 21 USE ldfslp ! iso-neutral slopes 21 USE flxrnf !22 22 USE in_out_manager ! I/O manager 23 23 USE lbclnk ! ocean lateral boundary conditions (or mpp link) -
trunk/NEMO/OPA_SRC/OBC/obcvol.F90
r699 r708 12 12 USE oce ! ocean dynamics and tracers 13 13 USE dom_oce ! ocean space and time domain 14 USE sbc_oce ! surface boundary condition: ocean 14 15 USE phycst ! physical constants 15 16 USE obc_oce ! ocean open boundary conditions 16 17 USE lib_mpp ! for mppsum 17 18 USE in_out_manager ! I/O manager 18 USE ocesbc ! ocean surface boundary conditions19 19 20 20 IMPLICIT NONE -
trunk/NEMO/OPA_SRC/SBC/cpl_oasis3.F90
r699 r708 45 45 USE daymod ! date and time info 46 46 USE dom_oce ! ocean space and time domain 47 USE sbc_ice ! surface boundary condition: ice 47 48 USE in_out_manager ! I/O manager 48 49 USE par_oce ! … … 51 52 USE oce, only: tn, un, vn 52 53 USE ice, only: frld, hicif, hsnif 53 USE flx_oce, only : alb_ice , & ! albedo of ice54 tn_ice ! ice surface temperature55 54 56 55 IMPLICIT NONE -
trunk/NEMO/OPA_SRC/TRA/traadv_cen2.F90
r699 r708 17 17 USE oce ! ocean dynamics and active tracers 18 18 USE dom_oce ! ocean space and time domain 19 USE sbc_oce ! surface boundary condition: ocean 20 USE dynspg_oce ! choice/control of key cpp for surface pressure gradient 21 USE trdmod_oce ! ocean variables trends 19 22 USE trdmod ! ocean active tracers trends 20 USE trdmod_oce ! ocean variables trends21 USE flxrnf !22 23 USE trabbl ! advective term in the BBL 23 24 USE ocfzpt ! 25 USE in_out_manager ! I/O manager 24 26 USE lib_mpp 25 27 USE lbclnk ! ocean lateral boundary condition (or mpp link) 26 USE in_out_manager ! I/O manager27 28 USE diaptr ! poleward transport diagnostics 28 USE dynspg_oce ! choice/control of key cpp for surface pressure gradient29 29 USE prtctl ! Print control 30 30 -
trunk/NEMO/OPA_SRC/TRA/traadv_cen2_jki.F90
r699 r708 18 18 USE oce ! ocean dynamics and active tracers 19 19 USE dom_oce ! ocean space and time domain 20 USE dynspg_oce ! choice/control of key cpp for surface pressure gradient 21 USE trdmod_oce ! ocean variables trends 22 USE sbc_oce ! surface boundary condition: ocean 20 23 USE trdmod ! ocean active tracers trends 21 USE trdmod_oce ! ocean variables trends22 USE flxrnf !23 24 USE trabbl ! advective term in the BBL 24 25 USE ocfzpt ! … … 27 28 USE in_out_manager ! I/O manager 28 29 USE diaptr ! poleward transport diagnostics 29 USE dynspg_oce ! choice/control of key cpp for surface pressure gradient30 30 USE prtctl ! Print control 31 31 -
trunk/NEMO/OPA_SRC/TRA/traadv_qck.F90
r699 r708 14 14 USE oce ! ocean dynamics and active tracers 15 15 USE dom_oce ! ocean space and time domain 16 USE dynspg_oce ! 17 USE trdmod_oce ! ocean variables trends 16 18 USE trdmod ! ocean active tracers trends 17 USE trdmod_oce ! ocean variables trends18 USE flxrnf !19 19 USE trabbl ! advective term in the BBL 20 USE ocfzpt !21 20 USE lib_mpp 22 21 USE lbclnk ! ocean lateral boundary condition (or mpp link) 23 22 USE in_out_manager ! I/O manager 24 23 USE diaptr ! poleward transport diagnostics 25 USE dynspg_oce !26 24 USE prtctl ! Print control 27 25 -
trunk/NEMO/OPA_SRC/TRA/tranxt.F90
r699 r708 21 21 USE dom_oce ! ocean space and time domain variables 22 22 USE zdf_oce ! ??? 23 USE dynspg_oce ! surface pressure gradient variables 24 USE trdmod_oce ! ocean variables trends 25 USE trdmod ! ocean active tracers trends 26 USE phycst 27 USE domvvl ! variable volume 28 USE obctra ! open boundary condition (obc_tra routine) 23 29 USE in_out_manager ! I/O manager 24 30 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 25 USE obctra ! open boundary condition (obc_tra routine)26 USE trdmod ! ocean active tracers trends27 USE trdmod_oce ! ocean variables trends28 31 USE prtctl ! Print control 29 32 USE agrif_opa_update 30 33 USE agrif_opa_interp 31 34 32 USE ocesbc ! ocean surface boundary condition33 USE domvvl ! variable volume34 USE dynspg_oce ! surface pressure gradient variables35 USE phycst36 35 37 36 IMPLICIT NONE -
trunk/NEMO/OPA_SRC/TRA/traqsr.F90
r699 r708 17 17 USE oce ! ocean dynamics and active tracers 18 18 USE dom_oce ! ocean space and time domain 19 USE sbc_oce ! surface boundary condition: ocean 20 USE trc_oce ! share SMS/Ocean variables 21 USE trdmod_oce ! ocean variables trends 19 22 USE trdmod ! ocean active tracers trends 20 USE trdmod_oce ! ocean variables trends21 23 USE in_out_manager ! I/O manager 22 USE trc_oce ! share SMS/Ocean variables23 USE ocesbc ! thermohaline fluxes24 24 USE phycst ! physical constants 25 25 USE prtctl ! Print control -
trunk/NEMO/OPA_SRC/TRA/trasbc.F90
r699 r708 13 13 !!---------------------------------------------------------------------- 14 14 USE oce ! ocean dynamics and active tracers 15 USE sbc_oce ! surface boundary condition: ocean 15 16 USE dom_oce ! ocean space domain variables 16 USE ocesbc ! surface thermohaline fluxes17 17 USE phycst ! physical constant 18 18 USE traqsr ! solar radiation penetration -
trunk/NEMO/OPA_SRC/TRA/trazdf.F90
r699 r708 14 14 USE dom_oce ! ocean space and time domain variables 15 15 USE zdf_oce ! ocean vertical physics variables 16 USE sbc_oce ! surface boundary condition: ocean 17 USE dynspg_oce 16 18 17 19 USE trazdf_exp ! vertical diffusion: explicit (tra_zdf_exp routine) … … 26 28 27 29 USE phycst 28 USE dynspg_oce29 USE ocesbc ! ocean surface boundary condition30 30 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 31 31 USE domvvl ! variable volume -
trunk/NEMO/OPA_SRC/TRD/trdmod.F90
r699 r708 12 12 !! trd_mod_init : Initialization step 13 13 !!---------------------------------------------------------------------- 14 USE phycst ! physical constants15 14 USE oce ! ocean dynamics and tracers variables 16 15 USE dom_oce ! ocean space and time domain variables … … 18 17 USE trdmod_oce ! ocean variables trends 19 18 USE ldftra_oce ! ocean active tracers lateral physics 19 USE sbc_oce ! surface boundary condition: ocean 20 USE phycst ! physical constants 20 21 USE trdvor ! ocean vorticity trends 21 22 USE trdicp ! ocean bassin integral constraints properties 22 23 USE trdmld ! ocean active mixed layer tracers trends 23 24 USE in_out_manager ! I/O manager 24 USE taumod ! surface ocean stress25 25 26 26 IMPLICIT NONE -
trunk/NEMO/OPA_SRC/ZDF/zdfkpp.F90
r699 r708 21 21 USE dom_oce ! ocean space and time domain 22 22 USE zdf_oce ! ocean vertical physics 23 USE sbc_oce ! surface boundary condition: ocean 23 24 USE phycst ! physical constants 24 USE taumod ! surface stress25 25 USE eosbn2 ! equation of state 26 USE ocesbc ! thermohaline fluxes27 26 USE zdfddm ! double diffusion mixing 28 27 USE in_out_manager ! I/O manager -
trunk/NEMO/OPA_SRC/ZDF/zdftke.F90
r699 r708 31 31 USE dom_oce ! ocean space and time domain 32 32 USE zdf_oce ! ocean vertical physics 33 USE sbc_oce ! surface boundary condition: ocean 33 34 USE phycst ! physical constants 34 USE taumod ! surface stress35 35 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 36 36 USE prtctl ! Print control -
trunk/NEMO/OPA_SRC/ZDF/zdftke_jki.F90
r699 r708 20 20 USE dom_oce ! ocean space and time domain 21 21 USE zdf_oce ! ocean vertical physics 22 USE sbc_oce ! surface boundary condition: ocean 22 23 USE zdftke ! ??? 24 USE phycst ! physical constants 23 25 USE in_out_manager ! I/O manager 24 26 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 25 USE phycst ! physical constants26 USE taumod ! surface stress27 27 USE prtctl ! Print control 28 28 USE restart ! only for lrst_oce -
trunk/NEMO/OPA_SRC/cla.F90
r699 r708 19 19 USE oce ! ocean dynamics and tracers variables 20 20 USE dom_oce ! ocean space and time domain variables 21 USE sbc_oce ! surface boundary condition: ocean 21 22 USE in_out_manager ! I/O manager 22 23 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 23 USE ocesbc ! ocean surface boundary condition (fluxes)24 24 USE lib_mpp ! distributed memory computing 25 25 -
trunk/NEMO/OPA_SRC/cla_div.F90
r699 r708 18 18 USE oce ! ocean dynamics and tracers 19 19 USE dom_oce ! ocean space and time domain 20 USE sbc_oce ! surface boundary condition: ocean 20 21 USE in_out_manager ! I/O manager 21 USE ocesbc ! ocean surface boundary condition (fluxes)22 22 USE lib_mpp ! distributed memory computing library 23 23 USE lbclnk ! ocean lateral boundary conditions (or mpp link) -
trunk/NEMO/OPA_SRC/cla_dynspg.F90
r699 r708 13 13 USE obc_oce ! Lateral open boundary condition 14 14 USE sol_oce ! solver variables 15 USE sbc_oce ! surface boundary condition: ocean 15 16 USE phycst ! physical constants 16 USE ocesbc ! ocean surface boundary condition (fluxes)17 USE flxrnf ! ocean runoffs18 17 USE solpcg ! preconditionned conjugate gradient solver 19 18 USE solsor ! Successive Over-relaxation solver -
trunk/NEMO/OPA_SRC/opa.F90
r699 r708 36 36 !!---------------------------------------------------------------------- 37 37 !! * Modules used 38 USE oce ! dynamics and tracers variables 38 39 USE cpl_oce ! ocean-atmosphere-sea ice coupled exchanges 39 40 USE dom_oce ! ocean space domain variables 40 USE oce ! dynamics and tracers variables41 USE sbc_oce ! surface boundary condition: ocean 41 42 USE trdmod_oce ! ocean variables trends 42 43 USE daymod ! calendar … … 60 61 USE phycst ! physical constant (par_cst routine) 61 62 USE iceini ! initialization of sea-ice (ice_init routine) 62 USE cpl ! coupled ocean/atmos. (cpl_init routine)63 63 USE ocfzpt ! ocean freezing point (oc_fz_pt routine) 64 64 USE trdmod ! momentum/tracers trends (trd_mod_init routine) 65 USE flxfwb ! freshwater budget correction (flx_fwb_init routine)66 USE flxmod ! thermohaline forcing of the ocean (flx_init routine)67 65 68 66 USE diaptr ! poleward transports (dia_ptr_init routine)
Note: See TracChangeset
for help on using the changeset viewer.