- Timestamp:
- 2017-01-24T16:50:54+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/DIA/diafwb.F90
r7525 r7604 57 57 REAL(wp) :: zt, zs, zu 58 58 REAL(wp) :: zsm0, zfwfnew 59 REAL(wp), DIMENSION(:,:) :: ztmp ! 2D workspace59 REAL(wp), DIMENSION(:,:), ALLOCATABLE :: ztmp ! 2D workspace 60 60 IF( cp_cfg == "orca" .AND. jp_cfg == 1 .OR. jp_cfg == 2 .OR. jp_cfg == 4 ) THEN 61 61 !!---------------------------------------------------------------------- 62 62 IF( nn_timing == 1 ) CALL timing_start('dia_fwb') 63 64 ALLOCATE(ztmp(jpi,jpj)) 63 65 64 66 ! Mean global salinity
Note: See TracChangeset
for help on using the changeset viewer.