Changeset 3209 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC
- Timestamp:
- 2011-12-10T09:04:49+01:00 (13 years ago)
- Location:
- branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90
r3194 r3209 88 88 INTEGER :: ii, ij, ijt, iju, ierr ! local integer 89 89 REAL(wp) :: zraur, zdep ! local scalar 90 REAL(wp), POINTER, DIMENSION(:,:) :: zwu, zwv ! specific 2D workspace 90 REAL(wp), POINTER, DIMENSION(:,:) :: zwu ! specific 2D workspace 91 REAL(wp), POINTER, DIMENSION(:,:) :: zwv ! specific 2D workspace 91 92 !!---------------------------------------------------------------------- 92 93 ! -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.F90
r3186 r3209 109 109 REAL(wp) :: zcj, zfj, zav, zbv, zaj, zbj ! - - 110 110 REAL(wp) :: zck, zfk, zbw ! - - 111 REAL(wp), POINTER, DIMENSION(:,:,:) :: zgru, zgrv, zdzr 111 REAL(wp), POINTER, DIMENSION(:,:,:) :: zdzr 112 REAL(wp), POINTER, DIMENSION(:,:,:) :: zgru, zgrv 112 113 !!---------------------------------------------------------------------- 113 114 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90
r3208 r3209 89 89 ijpl = SIZE( pt_ice, 3 ) ! number of ice categories 90 90 91 CALL wrk_alloc( jpi,jpj, SIZE( pt_ice, 3 ), zalbfz, zficeth )91 CALL wrk_alloc( jpi,jpj,ijpl, zalbfz, zficeth ) 92 92 93 93 IF( albd_init == 0 ) CALL albedo_init ! initialization
Note: See TracChangeset
for help on using the changeset viewer.