Changeset 1200 for trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90
- Timestamp:
- 2008-09-24T15:05:20+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90
r1171 r1200 163 163 CALL ctl_stop( 'sbc_blk_clio: unable to allocate sf structure' ) ; RETURN 164 164 ENDIF 165 166 DO ifpr= 1, jpfld 167 ALLOCATE( sf(ifpr)%fnow(jpi,jpj) ) 168 ALLOCATE( sf(ifpr)%fdta(jpi,jpj,2) ) 169 END DO 170 165 171 166 172 ! fill sf with slf_i and control print
Note: See TracChangeset
for help on using the changeset viewer.