Changeset 5793
- Timestamp:
- 2015-10-14T07:11:12+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/2015_V36_STABLE_CO6_CO5_zenv_pomsdwl/NEMOGCM/NEMO/OPA_SRC/SBC/sbcflx.F90
r5655 r5793 129 129 ENDIF 130 130 ! 131 ALLOCATE( sf(jpfld_local), STAT=ierror ) ! set sf structure132 131 IF( ierror > 0 ) THEN 133 132 CALL ctl_stop( 'sbc_flx: unable to allocate sf structure' ) ; RETURN 134 133 ENDIF 135 DO ji= 1, jpfld 134 DO ji= 1, jpfld_local 136 135 ALLOCATE( sf(ji)%fnow(jpi,jpj,1) ) 137 136 IF( slf_i(ji)%ln_tint ) ALLOCATE( sf(ji)%fdta(jpi,jpj,1,2) )
Note: See TracChangeset
for help on using the changeset viewer.