Changeset 3186
- Timestamp:
- 2011-11-27T09:16:19+01:00 (12 years ago)
- Location:
- branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO
- Files:
-
- 135 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limadv_2.F90
r3145 r3186 23 23 USE in_out_manager ! I/O manager 24 24 USE lib_mpp ! MPP library 25 USE wrk_nemo _2! work arrays25 USE wrk_nemo ! work arrays 26 26 USE prtctl ! Print control 27 27 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limdyn_2.F90
r3145 r3186 28 28 USE lbclnk ! lateral boundary condition - MPP link 29 29 USE lib_mpp ! MPP library 30 USE wrk_nemo _2! work arrays30 USE wrk_nemo ! work arrays 31 31 USE in_out_manager ! I/O manager 32 32 USE prtctl ! Print control -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limhdf_2.F90
r3145 r3186 18 18 USE lbclnk ! lateral boundary condition - MPP exchanges 19 19 USE lib_mpp ! MPP library 20 USE wrk_nemo _2! work arrays20 USE wrk_nemo ! work arrays 21 21 USE prtctl ! Print control 22 22 USE in_out_manager ! I/O manager -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limmsh_2.F90
r3145 r3186 21 21 USE lib_mpp ! MPP library 22 22 #if defined key_lim2_vp 23 USE wrk_nemo _2! work arrays23 USE wrk_nemo ! work arrays 24 24 #endif 25 25 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limrhg_2.F90
r3145 r3186 27 27 USE lbclnk ! lateral boundary condition - MPP exchanges 28 28 USE lib_mpp ! MPP library 29 USE wrk_nemo _2! work arrays29 USE wrk_nemo ! work arrays 30 30 USE in_out_manager ! I/O manager 31 31 USE prtctl ! Print control -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limsbc_2.F90
r3145 r3186 32 32 USE lbclnk ! ocean lateral boundary condition - MPP exchanges 33 33 USE lib_mpp ! MPP library 34 USE wrk_nemo _2! work arrays34 USE wrk_nemo ! work arrays 35 35 USE in_out_manager ! I/O manager 36 36 USE diaar5, ONLY : lk_diaar5 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limthd_2.F90
r3145 r3186 22 22 USE in_out_manager ! I/O manager 23 23 USE lib_mpp 24 USE wrk_nemo _2! work arrays24 USE wrk_nemo ! work arrays 25 25 USE iom ! IOM library 26 26 USE ice_2 ! LIM sea-ice variables -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limthd_lac_2.F90
r3145 r3186 15 15 USE limistate_2 16 16 USE lib_mpp ! MPP library 17 USE wrk_nemo _2! work arrays17 USE wrk_nemo ! work arrays 18 18 19 19 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limthd_zdf_2.F90
r3145 r3186 20 20 USE in_out_manager 21 21 USE lib_mpp ! MPP library 22 USE wrk_nemo _2! work arrays22 USE wrk_nemo ! work arrays 23 23 USE cpl_oasis3, ONLY : lk_cpl 24 24 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limtrp_2.F90
r3145 r3186 27 27 USE lbclnk ! lateral boundary conditions -- MPP exchanges 28 28 USE lib_mpp ! MPP library 29 USE wrk_nemo _2! work arrays29 USE wrk_nemo ! work arrays 30 30 31 31 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90
r3145 r3186 30 30 USE in_out_manager 31 31 USE lib_mpp ! MPP library 32 USE wrk_nemo _2! work arrays32 USE wrk_nemo ! work arrays 33 33 USE iom 34 34 USE ioipsl -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_3/limadv.F90
r3148 r3186 22 22 USE prtctl ! Print control 23 23 USE lib_mpp ! MPP library 24 USE wrk_nemo _2! work arrays24 USE wrk_nemo ! work arrays 25 25 26 26 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_3/limdyn.F90
r3148 r3186 25 25 USE lbclnk ! lateral boundary conditions - MPP exchanges 26 26 USE lib_mpp ! MPP library 27 USE wrk_nemo _2! work arrays27 USE wrk_nemo ! work arrays 28 28 USE in_out_manager ! I/O manager 29 29 USE prtctl ! Print control -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_3/limhdf.F90
r3148 r3186 18 18 USE lbclnk ! lateral boundary condition - MPP exchanges 19 19 USE lib_mpp ! MPP library 20 USE wrk_nemo _2! work arrays20 USE wrk_nemo ! work arrays 21 21 USE prtctl ! Print control 22 22 USE in_out_manager ! I/O manager -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90
r3148 r3186 25 25 USE lbclnk ! lateral boundary condition - MPP exchanges 26 26 USE lib_mpp ! MPP library 27 USE wrk_nemo _2! work arrays27 USE wrk_nemo ! work arrays 28 28 29 29 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_3/limitd_me.F90
r3148 r3186 26 26 USE lbclnk ! lateral boundary condition - MPP exchanges 27 27 USE lib_mpp ! MPP library 28 USE wrk_nemo _2! work arrays28 USE wrk_nemo ! work arrays 29 29 USE prtctl ! Print control 30 30 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_3/limitd_th.F90
r3148 r3186 33 33 USE in_out_manager ! I/O manager 34 34 USE lib_mpp ! MPP library 35 USE wrk_nemo _2! work arrays35 USE wrk_nemo ! work arrays 36 36 37 37 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_3/limrhg.F90
r3148 r3186 24 24 USE lbclnk ! Lateral Boundary Condition / MPP link 25 25 USE lib_mpp ! MPP library 26 USE wrk_nemo _2! work arrays26 USE wrk_nemo ! work arrays 27 27 USE in_out_manager ! I/O manager 28 28 USE prtctl ! Print control -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90
r3148 r3186 24 24 USE iom ! I/O library 25 25 USE lib_mpp ! MPP library 26 USE wrk_nemo _2! work arrays26 USE wrk_nemo ! work arrays 27 27 28 28 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90
r3148 r3186 31 31 USE in_out_manager ! I/O manager 32 32 USE lib_mpp ! MPP library 33 USE wrk_nemo _2! work arrays33 USE wrk_nemo ! work arrays 34 34 USE prtctl ! Print control 35 35 USE cpl_oasis3, ONLY : lk_cpl -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90
r3148 r3186 36 36 USE lbclnk ! lateral boundary condition - MPP links 37 37 USE lib_mpp ! MPP library 38 USE wrk_nemo _2! work arrays38 USE wrk_nemo ! work arrays 39 39 USE in_out_manager ! I/O manager 40 40 USE prtctl ! Print control -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_3/limthd_dh.F90
r3148 r3186 23 23 USE in_out_manager ! I/O manager 24 24 USE lib_mpp ! MPP library 25 USE wrk_nemo _2! work arrays25 USE wrk_nemo ! work arrays 26 26 27 27 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_3/limthd_dif.F90
r3148 r3186 22 22 USE in_out_manager ! I/O manager 23 23 USE lib_mpp ! MPP library 24 USE wrk_nemo _2! work arrays24 USE wrk_nemo ! work arrays 25 25 26 26 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_3/limthd_ent.F90
r3148 r3186 28 28 USE in_out_manager ! I/O manager 29 29 USE lib_mpp ! MPP library 30 USE wrk_nemo _2! work arrays30 USE wrk_nemo ! work arrays 31 31 32 32 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90
r3148 r3186 28 28 USE in_out_manager ! I/O manager 29 29 USE lib_mpp ! MPP library 30 USE wrk_nemo _2! work arrays30 USE wrk_nemo ! work arrays 31 31 32 32 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_3/limthd_sal.F90
r3148 r3186 23 23 USE in_out_manager ! I/O manager 24 24 USE lib_mpp ! MPP library 25 USE wrk_nemo _2! work arrays25 USE wrk_nemo ! work arrays 26 26 27 27 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90
r3148 r3186 25 25 USE lbclnk ! lateral boundary conditions -- MPP exchanges 26 26 USE lib_mpp ! MPP library 27 USE wrk_nemo _2! work arrays27 USE wrk_nemo ! work arrays 28 28 USE prtctl ! Print control 29 29 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_3/limupdate.F90
r3148 r3186 35 35 USE prtctl ! Print control 36 36 USE lbclnk ! lateral boundary condition - MPP exchanges 37 USE wrk_nemo _2! work arrays37 USE wrk_nemo ! work arrays 38 38 39 39 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90
r3148 r3186 52 52 USE in_out_manager ! I/O manager 53 53 USE lib_mpp ! MPP library 54 USE wrk_nemo _2! work arrays54 USE wrk_nemo ! work arrays 55 55 56 56 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90
r3148 r3186 23 23 USE lbclnk 24 24 USE lib_mpp ! MPP library 25 USE wrk_nemo _2! work arrays25 USE wrk_nemo ! work arrays 26 26 USE par_ice 27 27 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/NST_SRC/agrif_opa_interp.F90
r3184 r3186 27 27 USE agrif_opa_sponge 28 28 USE lib_mpp 29 USE wrk_nemo _229 USE wrk_nemo 30 30 31 31 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/NST_SRC/agrif_opa_sponge.F90
r3184 r3186 8 8 USE in_out_manager 9 9 USE agrif_oce 10 USE wrk_nemo _210 USE wrk_nemo 11 11 12 12 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/NST_SRC/agrif_opa_update.F90
r3184 r3186 9 9 USE in_out_manager ! I/O manager 10 10 USE lib_mpp 11 USE wrk_nemo _211 USE wrk_nemo 12 12 13 13 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/NST_SRC/agrif_top_interp.F90
r3184 r3186 9 9 USE trc 10 10 USE lib_mpp 11 USE wrk_nemo _211 USE wrk_nemo 12 12 13 13 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/NST_SRC/agrif_top_sponge.F90
r3184 r3186 10 10 USE trc 11 11 USE lib_mpp 12 USE wrk_nemo _212 USE wrk_nemo 13 13 14 14 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/NST_SRC/agrif_top_update.F90
r3184 r3186 9 9 USE agrif_oce 10 10 USE trc 11 USE wrk_nemo _211 USE wrk_nemo 12 12 13 13 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OFF_SRC/dommsk.F90
r3149 r3186 14 14 USE lib_mpp ! MPP library 15 15 USE in_out_manager ! I/O manager 16 USE wrk_nemo _216 USE wrk_nemo 17 17 18 18 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OFF_SRC/domrea.F90
r3149 r3186 19 19 USE lib_mpp 20 20 USE in_out_manager 21 USE wrk_nemo _221 USE wrk_nemo 22 22 23 23 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90
r3183 r3186 21 21 !! ssh_asm_inc : Apply the SSH increment 22 22 !!---------------------------------------------------------------------- 23 USE wrk_nemo _2! Memory Allocation23 USE wrk_nemo ! Memory Allocation 24 24 USE par_oce ! Ocean space and time domain variables 25 25 USE dom_oce ! Ocean space and time domain -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90
r3182 r3186 19 19 !! bdy_dta_init : initialise arrays etc for reading of external data 20 20 !!---------------------------------------------------------------------- 21 USE wrk_nemo _2! Memory Allocation21 USE wrk_nemo ! Memory Allocation 22 22 USE timing ! Timing 23 23 USE oce ! ocean dynamics and tracers -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn.F90
r3182 r3186 18 18 !! bdy_dyn3d_frs : apply Flow Relaxation Scheme 19 19 !!---------------------------------------------------------------------- 20 USE wrk_nemo _2! Memory Allocation20 USE wrk_nemo ! Memory Allocation 21 21 USE timing ! Timing 22 22 USE oce ! ocean dynamics and tracers -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DIA/diaar5.F90
r3168 r3186 20 20 USE iom ! I/O manager library 21 21 USE timing ! preformance summary 22 USE wrk_nemo _2! working arrays22 USE wrk_nemo ! working arrays 23 23 24 24 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90
r3185 r3186 43 43 USE domvvl 44 44 USE timing ! preformance summary 45 USE wrk_nemo _2! working arrays45 USE wrk_nemo ! working arrays 46 46 47 47 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90
r3168 r3186 20 20 USE iom 21 21 USE timing ! preformance summary 22 USE wrk_nemo _2! working arrays22 USE wrk_nemo ! working arrays 23 23 24 24 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90
r3171 r3186 30 30 USE lbclnk ! lateral boundary condition - processor exchanges 31 31 USE timing ! preformance summary 32 USE wrk_nemo _2! working arrays32 USE wrk_nemo ! working arrays 33 33 34 34 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
r3168 r3186 48 48 USE lib_mpp ! MPP library 49 49 USE timing ! preformance summary 50 USE wrk_nemo _2! working array50 USE wrk_nemo ! working array 51 51 52 52 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90
r3162 r3186 29 29 USE lib_mpp 30 30 USE dynspg_oce ! choice/control of key cpp for surface pressure gradient 31 USE wrk_nemo _2! Memory allocation31 USE wrk_nemo ! Memory allocation 32 32 USE timing ! Timing 33 33 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DOM/domngb.F90
r3170 r3186 13 13 USE in_out_manager ! I/O manager 14 14 USE lib_mpp ! for mppsum 15 USE wrk_nemo _2! Memory allocation15 USE wrk_nemo ! Memory allocation 16 16 USE timing ! Timing 17 17 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90
r3162 r3186 20 20 USE lib_mpp ! distributed memory computing library 21 21 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 22 USE wrk_nemo _2! Memory allocation22 USE wrk_nemo ! Memory allocation 23 23 USE timing ! Timing 24 24 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.F90
r3185 r3186 20 20 USE lbclnk ! lateral boundary conditions - mpp exchanges 21 21 USE lib_mpp ! MPP library 22 USE wrk_nemo _2! Memory allocation22 USE wrk_nemo ! Memory allocation 23 23 USE timing ! Timing 24 24 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r3162 r3186 38 38 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 39 39 USE lib_mpp ! distributed memory computing library 40 USE wrk_nemo _2! Memory allocation40 USE wrk_nemo ! Memory allocation 41 41 USE timing ! Timing 42 42 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90
r3162 r3186 21 21 USE phycst ! physical constants 22 22 USE lib_mpp ! MPP library 23 USE wrk_nemo _2! Memory allocation23 USE wrk_nemo ! Memory allocation 24 24 USE timing ! Timing 25 25 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90
r3162 r3186 43 43 USE dynspg_ts ! pressure gradient schemes 44 44 USE lib_mpp ! MPP library 45 USE wrk_nemo _2! Memory allocation45 USE wrk_nemo ! Memory allocation 46 46 USE timing ! Timing 47 47 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90
r3161 r3186 31 31 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 32 32 USE lib_mpp ! MPP library 33 USE wrk_nemo _2! Memory Allocation33 USE wrk_nemo ! Memory Allocation 34 34 USE timing ! Timing 35 35 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv_cen2.F90
r3161 r3186 20 20 USE lib_mpp ! MPP library 21 21 USE prtctl ! Print control 22 USE wrk_nemo _2! Memory Allocation22 USE wrk_nemo ! Memory Allocation 23 23 USE timing ! Timing 24 24 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv_ubs.F90
r3161 r3186 22 22 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 23 23 USE lib_mpp ! MPP library 24 USE wrk_nemo _2! Memory Allocation24 USE wrk_nemo ! Memory Allocation 25 25 USE timing ! Timing 26 26 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90
r3161 r3186 37 37 USE lbclnk ! lateral boundary condition 38 38 USE lib_mpp ! MPP library 39 USE wrk_nemo _2! Memory Allocation39 USE wrk_nemo ! Memory Allocation 40 40 USE timing ! Timing 41 41 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynkeg.F90
r3161 r3186 19 19 USE lib_mpp ! MPP library 20 20 USE prtctl ! Print control 21 USE wrk_nemo _2! Memory Allocation21 USE wrk_nemo ! Memory Allocation 22 22 USE timing ! Timing 23 23 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90
r3161 r3186 26 26 USE lib_mpp ! distribued memory computing library 27 27 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 28 USE wrk_nemo _2! Memory Allocation28 USE wrk_nemo ! Memory Allocation 29 29 USE timing ! Timing 30 30 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilap.F90
r3161 r3186 23 23 USE trdmod_oce ! ocean variables trends 24 24 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 25 USE wrk_nemo _2! Memory Allocation25 USE wrk_nemo ! Memory Allocation 26 26 USE timing ! Timing 27 27 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilapg.F90
r3161 r3186 27 27 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 28 28 USE prtctl ! Print control 29 USE wrk_nemo _2! Memory Allocation29 USE wrk_nemo ! Memory Allocation 30 30 USE timing ! Timing 31 31 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_iso.F90
r3161 r3186 29 29 USE lib_mpp ! MPP library 30 30 USE prtctl ! Print control 31 USE wrk_nemo _2! Memory Allocation31 USE wrk_nemo ! Memory Allocation 32 32 USE timing ! Timing 33 33 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynnept.F90
r3161 r3186 30 30 USE phycst 31 31 USE lbclnk 32 USE wrk_nemo _2! Memory Allocation32 USE wrk_nemo ! Memory Allocation 33 33 34 34 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg.F90
r3161 r3186 28 28 USE lib_mpp ! MPP library 29 29 USE solver ! solver initialization 30 USE wrk_nemo _2! Memory Allocation30 USE wrk_nemo ! Memory Allocation 31 31 USE timing ! Timing 32 32 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r3161 r3186 43 43 USE restart ! only for lrst_oce 44 44 USE zdf_oce ! Vertical diffusion 45 USE wrk_nemo _2! Memory Allocation45 USE wrk_nemo ! Memory Allocation 46 46 USE timing ! Timing 47 47 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90
r3161 r3186 35 35 USE in_out_manager ! I/O manager 36 36 USE lib_mpp ! MPP library 37 USE wrk_nemo _2! Memory Allocation37 USE wrk_nemo ! Memory Allocation 38 38 USE timing ! Timing 39 39 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90
r3161 r3186 21 21 USE lib_mpp ! MPP library 22 22 USE prtctl ! Print control 23 USE wrk_nemo _2! Memory Allocation23 USE wrk_nemo ! Memory Allocation 24 24 USE timing ! Timing 25 25 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf.F90
r3161 r3186 25 25 USE lib_mpp ! MPP library 26 26 USE prtctl ! Print control 27 USE wrk_nemo _2! Memory Allocation27 USE wrk_nemo ! Memory Allocation 28 28 USE timing ! Timing 29 29 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_exp.F90
r3161 r3186 22 22 USE in_out_manager ! I/O manager 23 23 USE lib_mpp ! MPP library 24 USE wrk_nemo _2! Memory Allocation24 USE wrk_nemo ! Memory Allocation 25 25 USE timing ! Timing 26 26 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90
r3161 r3186 21 21 USE lib_mpp ! MPP library 22 22 USE zdfbfr ! bottom friction setup 23 USE wrk_nemo _2! Memory Allocation23 USE wrk_nemo ! Memory Allocation 24 24 USE timing ! Timing 25 25 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90
r3161 r3186 39 39 USE asminc ! Assimilation increment 40 40 #endif 41 USE wrk_nemo _2! Memory Allocation41 USE wrk_nemo ! Memory Allocation 42 42 USE timing ! Timing 43 43 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/FLO/flo4rk.F90
r3151 r3186 15 15 USE dom_oce ! ocean space and time domain 16 16 USE in_out_manager ! I/O manager 17 USE wrk_nemo _2! working array17 USE wrk_nemo ! working array 18 18 19 19 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/FLO/floblk.F90
r3151 r3186 17 17 USE in_out_manager ! I/O manager 18 18 USE lib_mpp ! distribued memory computing library 19 USE wrk_nemo _2! working array19 USE wrk_nemo ! working array 20 20 21 21 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/IOM/prtctl.F90
r3152 r3186 10 10 USE in_out_manager ! I/O manager 11 11 USE lib_mpp ! distributed memory computing 12 USE wrk_nemo _2! work arrays12 USE wrk_nemo ! work arrays 13 13 14 14 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r3185 r3186 1771 1771 !! 1772 1772 !!---------------------------------------------------------------------- 1773 USE wrk_nemo _2! Memory allocation1773 USE wrk_nemo ! Memory allocation 1774 1774 ! 1775 1775 INTEGER , INTENT(in ) :: kd1, kd2 ! starting and ending indices -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn.F90
r3164 r3186 23 23 USE lib_mpp ! distribued memory computing library 24 24 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 25 USE wrk_nemo _2! Memory Allocation25 USE wrk_nemo ! Memory Allocation 26 26 27 27 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/LDF/ldfeiv.F90
r3155 r3186 25 25 USE prtctl ! Print control 26 26 USE iom ! I/O library 27 USE wrk_nemo _2! work arrays27 USE wrk_nemo ! work arrays 28 28 29 29 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.F90
r3155 r3186 31 31 USE in_out_manager ! I/O manager 32 32 USE prtctl ! Print control 33 USE wrk_nemo _2! work arrays33 USE wrk_nemo ! work arrays 34 34 35 35 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90
r3183 r3186 16 16 !!---------------------------------------------------------------------- 17 17 !! * Modules used 18 USE wrk_nemo _2! Memory Allocation18 USE wrk_nemo ! Memory Allocation 19 19 USE par_kind ! Precision variables 20 20 USE in_out_manager ! I/O manager -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/OBS/obs_inter_sup.F90
r3183 r3186 10 10 !!--------------------------------------------------------------------- 11 11 !! * Modules used 12 USE wrk_nemo _2! Memory Allocation12 USE wrk_nemo ! Memory Allocation 13 13 USE par_kind ! Precision variables 14 14 USE dom_oce ! Domain variables -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_altbias.F90
r3183 r3186 33 33 USE obs_utils ! Various observation tools 34 34 USE obs_inter_sup 35 USE wrk_nemo _2! Memory Allocation35 USE wrk_nemo ! Memory Allocation 36 36 37 37 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/OBS/obs_readmdt.F90
r3185 r3186 12 12 !! obs_offset_mdt : Remove the offset between the model MDT and the used one 13 13 !!---------------------------------------------------------------------- 14 USE wrk_nemo _2! Memory Allocation14 USE wrk_nemo ! Memory Allocation 15 15 USE par_kind ! Precision variables 16 16 USE par_oce ! Domain parameters -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/OBS/obs_rot_vel.F90
r3183 r3186 9 9 !!---------------------------------------------------------------------- 10 10 !! * Modules used 11 USE wrk_nemo _2! Memory Allocation11 USE wrk_nemo ! Memory Allocation 12 12 USE par_kind ! Precision variables 13 13 USE par_oce ! Ocean parameters -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90
r3152 r3186 19 19 USE in_out_manager ! I/O manager 20 20 USE lib_mpp ! MPP library 21 USE wrk_nemo _2! work arrays21 USE wrk_nemo ! work arrays 22 22 23 23 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis4.F90
r3152 r3186 32 32 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 33 33 USE lib_mpp ! MPP library 34 USE wrk_nemo _2! work arrays34 USE wrk_nemo ! work arrays 35 35 36 36 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90
r3152 r3186 20 20 USE geo2ocean ! for vector rotation on to model grid 21 21 USE lib_mpp ! MPP library 22 USE wrk_nemo _2! work arrays22 USE wrk_nemo ! work arrays 23 23 USE ioipsl, ONLY : ymds2ju, ju2ymds ! for calendar 24 24 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90
r3152 r3186 27 27 USE in_out_manager ! I/O manager 28 28 USE lib_mpp ! distribued memory computing library 29 USE wrk_nemo _2! work arrays29 USE wrk_nemo ! work arrays 30 30 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 31 31 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90
r3152 r3186 33 33 USE in_out_manager ! I/O manager 34 34 USE lib_mpp ! distribued memory computing library 35 USE wrk_nemo _2! work arrays35 USE wrk_nemo ! work arrays 36 36 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 37 37 USE prtctl ! Print control -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90
r3152 r3186 20 20 USE in_out_manager ! I/O manager 21 21 USE lib_mpp ! distribued memory computing library 22 USE wrk_nemo _2! work arrays22 USE wrk_nemo ! work arrays 23 23 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 24 24 USE prtctl ! Print control -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r3180 r3186 47 47 USE iom ! NetCDF library 48 48 USE lib_mpp ! distribued memory computing library 49 USE wrk_nemo _2! work arrays49 USE wrk_nemo ! work arrays 50 50 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 51 51 #if defined key_cpl_carbon_cycle -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcfwb.F90
r3152 r3186 22 22 USE in_out_manager ! I/O manager 23 23 USE lib_mpp ! distribued memory computing library 24 USE wrk_nemo _2! work arrays24 USE wrk_nemo ! work arrays 25 25 USE lbclnk ! ocean lateral boundary conditions 26 26 USE lib_fortran -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r3176 r3186 18 18 USE lib_mpp ! distributed memory computing library 19 19 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 20 USE wrk_nemo _2! work arrays20 USE wrk_nemo ! work arrays 21 21 USE daymod ! calendar 22 22 USE fldread ! read input fields -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90
r3152 r3186 50 50 USE lbclnk ! lateral boundary condition - MPP link 51 51 USE lib_mpp ! MPP library 52 USE wrk_nemo _2! work arrays52 USE wrk_nemo ! work arrays 53 53 USE iom ! I/O manager library 54 54 USE in_out_manager ! I/O manager -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90
r3152 r3186 44 44 USE lbclnk ! lateral boundary condition - MPP link 45 45 USE lib_mpp ! MPP library 46 USE wrk_nemo _2! work arrays46 USE wrk_nemo ! work arrays 47 47 USE iom ! I/O manager library 48 48 USE in_out_manager ! I/O manager -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SOL/solpcg.F90
r3162 r3186 15 15 USE in_out_manager ! I/O manager 16 16 USE lib_fortran ! Fortran routines library 17 USE wrk_nemo _2! Memory allocation17 USE wrk_nemo ! Memory allocation 18 18 USE timing ! Timing 19 19 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SOL/solsor.F90
r3162 r3186 23 23 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 24 24 USE lib_fortran ! Fortran routines library 25 USE wrk_nemo _2! Memory allocation25 USE wrk_nemo ! Memory allocation 26 26 USE timing ! Timing 27 27 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90
r3159 r3186 37 37 USE lib_mpp ! MPP library 38 38 USE prtctl ! Print control 39 USE wrk_nemo _2! Memory Allocation39 USE wrk_nemo ! Memory Allocation 40 40 USE timing ! Timing 41 41 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90
r3159 r3186 27 27 USE prtctl ! Print control 28 28 USE lib_mpp ! MPP library 29 USE wrk_nemo _2! Memory Allocation29 USE wrk_nemo ! Memory Allocation 30 30 USE timing ! Timing 31 31 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_cen2.F90
r3159 r3186 32 32 USE trc_oce ! share passive tracers/Ocean variables 33 33 USE lib_mpp ! MPP library 34 USE wrk_nemo _2! Memory Allocation34 USE wrk_nemo ! Memory Allocation 35 35 USE timing ! Timing 36 36 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_eiv.F90
r3159 r3186 27 27 USE diaar5, ONLY: lk_diaar5 28 28 # endif 29 USE wrk_nemo _2! Memory Allocation29 USE wrk_nemo ! Memory Allocation 30 30 USE timing ! Timing 31 31 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_muscl.F90
r3159 r3186 25 25 USE diaptr ! poleward transport diagnostics 26 26 USE trc_oce ! share passive tracers/Ocean variables 27 USE wrk_nemo _2! Memory Allocation27 USE wrk_nemo ! Memory Allocation 28 28 USE timing ! Timing 29 29 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_muscl2.F90
r3159 r3186 23 23 USE diaptr ! poleward transport diagnostics 24 24 USE trc_oce ! share passive tracers/Ocean variables 25 USE wrk_nemo _2! Memory Allocation25 USE wrk_nemo ! Memory Allocation 26 26 USE timing ! Timing 27 27 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_qck.F90
r3159 r3186 26 26 USE diaptr ! poleward transport diagnostics 27 27 USE trc_oce ! share passive tracers/Ocean variables 28 USE wrk_nemo _2! Memory Allocation28 USE wrk_nemo ! Memory Allocation 29 29 USE timing ! Timing 30 30 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90
r3159 r3186 32 32 USE diaptr ! poleward transport diagnostics 33 33 USE trc_oce ! share passive tracers/Ocean variables 34 USE wrk_nemo _2! Memory Allocation34 USE wrk_nemo ! Memory Allocation 35 35 USE timing ! Timing 36 36 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_ubs.F90
r3159 r3186 22 22 USE dynspg_oce ! choice/control of key cpp for surface pressure gradient 23 23 USE trc_oce ! share passive tracers/Ocean variables 24 USE wrk_nemo _2! Memory Allocation24 USE wrk_nemo ! Memory Allocation 25 25 USE timing ! Timing 26 26 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/trabbc.F90
r3159 r3186 22 22 USE in_out_manager ! I/O manager 23 23 USE prtctl ! Print control 24 USE wrk_nemo _2! Memory Allocation24 USE wrk_nemo ! Memory Allocation 25 25 USE timing ! Timing 26 26 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90
r3159 r3186 34 34 USE lbclnk ! ocean lateral boundary conditions 35 35 USE prtctl ! Print control 36 USE wrk_nemo _2! Memory Allocation36 USE wrk_nemo ! Memory Allocation 37 37 USE timing ! Timing 38 38 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90
r3159 r3186 36 36 USE lib_mpp ! MPP library 37 37 USE prtctl ! Print control 38 USE wrk_nemo _2! Memory allocation38 USE wrk_nemo ! Memory allocation 39 39 USE timing ! Timing 40 40 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traldf.F90
r3159 r3186 29 29 USE lib_mpp ! distribued memory computing library 30 30 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 31 USE wrk_nemo _2! Memory allocation31 USE wrk_nemo ! Memory allocation 32 32 USE timing ! Timing 33 33 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_bilap.F90
r3159 r3186 29 29 USE trc_oce ! share passive tracers/Ocean variables 30 30 USE lib_mpp ! MPP library 31 USE wrk_nemo _2! Memory Allocation31 USE wrk_nemo ! Memory Allocation 32 32 USE timing ! Timing 33 33 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_bilapg.F90
r3159 r3186 25 25 USE trc_oce ! share passive tracers/Ocean variables 26 26 USE lib_mpp ! MPP library 27 USE wrk_nemo _2! Memory Allocation27 USE wrk_nemo ! Memory Allocation 28 28 USE timing ! Timing 29 29 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso.F90
r3159 r3186 32 32 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 33 33 #endif 34 USE wrk_nemo _2! Memory Allocation34 USE wrk_nemo ! Memory Allocation 35 35 USE timing ! Timing 36 36 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso_grif.F90
r3159 r3186 26 26 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 27 27 USE lib_mpp ! MPP library 28 USE wrk_nemo _2! Memory Allocation28 USE wrk_nemo ! Memory Allocation 29 29 USE timing ! Timing 30 30 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/tranpc.F90
r3159 r3186 23 23 USE in_out_manager ! I/O manager 24 24 USE lib_mpp ! MPP library 25 USE wrk_nemo _2! Memory Allocation25 USE wrk_nemo ! Memory Allocation 26 26 USE timing ! Timing 27 27 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90
r3159 r3186 46 46 USE agrif_opa_interp 47 47 #endif 48 USE wrk_nemo _2! Memory allocation48 USE wrk_nemo ! Memory allocation 49 49 USE timing ! Timing 50 50 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90
r3159 r3186 29 29 USE restart ! ocean restart 30 30 USE lib_mpp ! MPP library 31 USE wrk_nemo _2! Memory Allocation31 USE wrk_nemo ! Memory Allocation 32 32 USE timing ! Timing 33 33 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90
r3159 r3186 28 28 USE iom 29 29 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 30 USE wrk_nemo _2! Memory Allocation30 USE wrk_nemo ! Memory Allocation 31 31 USE timing ! Timing 32 32 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf.F90
r3159 r3186 30 30 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 31 31 USE lib_mpp ! MPP library 32 USE wrk_nemo _2! Memory allocation32 USE wrk_nemo ! Memory allocation 33 33 USE timing ! Timing 34 34 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_exp.F90
r3159 r3186 31 31 USE in_out_manager ! I/O manager 32 32 USE lib_mpp ! MPP library 33 USE wrk_nemo _2! Memory Allocation33 USE wrk_nemo ! Memory Allocation 34 34 USE timing ! Timing 35 35 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_imp.F90
r3159 r3186 35 35 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 36 36 USE lib_mpp ! MPP library 37 USE wrk_nemo _2! Memory Allocation37 USE wrk_nemo ! Memory Allocation 38 38 USE timing ! Timing 39 39 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/zpshde.F90
r3159 r3186 21 21 USE lbclnk ! lateral boundary conditions (or mpp link) 22 22 USE lib_mpp ! MPP library 23 USE wrk_nemo _2! Memory allocation23 USE wrk_nemo ! Memory allocation 24 24 USE timing ! Timing 25 25 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRD/trdicp.F90
r3181 r3186 26 26 USE eosbn2 ! equation of state 27 27 USE phycst ! physical constants 28 USE wrk_nemo _2! Memory allocation28 USE wrk_nemo ! Memory allocation 29 29 30 30 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRD/trdmld.F90
r3181 r3186 38 38 USE restart ! for lrst_oce 39 39 USE lib_mpp ! MPP library 40 USE wrk_nemo _2! Memory allocation40 USE wrk_nemo ! Memory allocation 41 41 42 42 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRD/trdmod.F90
r3181 r3186 25 25 USE in_out_manager ! I/O manager 26 26 USE lib_mpp ! MPP library 27 USE wrk_nemo _2! Memory allocation27 USE wrk_nemo ! Memory allocation 28 28 29 29 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRD/trdtra.F90
r3181 r3186 18 18 USE in_out_manager ! I/O manager 19 19 USE lib_mpp ! MPP library 20 USE wrk_nemo _2! Memory allocation20 USE wrk_nemo ! Memory allocation 21 21 22 22 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRD/trdvor.F90
r3185 r3186 27 27 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 28 28 USE lib_mpp ! MPP library 29 USE wrk_nemo _2! Memory allocation29 USE wrk_nemo ! Memory allocation 30 30 31 31 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90
r3155 r3186 22 22 USE prtctl ! Print control 23 23 USE lib_mpp ! MPP library 24 USE wrk_nemo _2! work arrays24 USE wrk_nemo ! work arrays 25 25 26 26 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
r3178 r3186 26 26 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 27 27 USE lib_mpp ! MPP manager 28 USE wrk_nemo _2! work arrays28 USE wrk_nemo ! work arrays 29 29 USE prtctl ! Print control 30 30 USE in_out_manager ! I/O manager -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90
r3155 r3186 29 29 USE in_out_manager ! I/O manager 30 30 USE lib_mpp ! MPP library 31 USE wrk_nemo _2! work arrays31 USE wrk_nemo ! work arrays 32 32 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 33 33 USE prtctl ! Print control -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90
r3155 r3186 16 16 USE iom ! I/O library 17 17 USE lib_mpp ! MPP library 18 USE wrk_nemo _2! work arrays18 USE wrk_nemo ! work arrays 19 19 USE trc_oce, ONLY : lk_offline ! offline flag 20 20 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90
r3155 r3186 27 27 USE lbclnk ! ocean lateral boundary condition (or mpp link) 28 28 USE lib_mpp ! MPP library 29 USE wrk_nemo _2! work arrays29 USE wrk_nemo ! work arrays 30 30 USE eosbn2, ONLY : nn_eos 31 31 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r3155 r3186 50 50 USE iom ! I/O manager library 51 51 USE lib_mpp ! MPP library 52 USE wrk_nemo _2! work arrays52 USE wrk_nemo ! work arrays 53 53 54 54 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90
r3172 r3186 25 25 USE iom ! I/O Manager 26 26 USE lib_mpp ! MPP library 27 USE wrk_nemo _2! work arrays27 USE wrk_nemo ! work arrays 28 28 29 29 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r3161 r3186 505 505 USE ldftra_oce, ONLY: ldftra_oce_alloc 506 506 USE trc_oce , ONLY: trc_oce_alloc 507 USE wrk_nemo , ONLY: wrk_alloc508 507 ! 509 508 INTEGER :: ierr … … 519 518 ierr = ierr + lib_mpp_alloc (numout) ! mpp exchanges 520 519 ierr = ierr + trc_oce_alloc () ! shared TRC / TRA arrays 521 !522 ierr = ierr + wrk_alloc(numout, lwp) ! workspace523 520 ! 524 521 IF( lk_mpp ) CALL mpp_sum( ierr ) -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/wrk_nemo.F90
r3184 r3186 1 MODULE wrk_nemo _21 MODULE wrk_nemo 2 2 !!====================================================================== 3 3 !! *** MODULE wrk_nemo *** … … 594 594 595 595 !!===================================================================== 596 END MODULE wrk_nemo _2596 END MODULE wrk_nemo -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90
r3153 r3186 35 35 36 36 !* Memory Allocation * 37 USE wrk_nemo _237 USE wrk_nemo 38 38 39 39 !* Timing *
Note: See TracChangeset
for help on using the changeset viewer.