- Timestamp:
- 2011-12-09T17:52:22+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90
r3186 r3208 89 89 ijpl = SIZE( pt_ice, 3 ) ! number of ice categories 90 90 91 CALL wrk_alloc( jpi,jpj, ijpl, zalbfz, zficeth )91 CALL wrk_alloc( jpi,jpj,SIZE( pt_ice, 3 ), zalbfz, zficeth ) 92 92 93 93 IF( albd_init == 0 ) CALL albedo_init ! initialization
Note: See TracChangeset
for help on using the changeset viewer.